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This invention is an integrated instrument for the high capacity electrophoretic analysis of biopolymer samples. It comprises a 
specialized high-voltage, electrophoretic module in which migration lanes are formed between a bottom plate (446) and a plurality of etched 
grooves in a top plate (438), the module permitting concurrent separation of 80 or more separate samples. In thermal contact with the bottom 
plate (446) is a thermal control module incorporating a plurality of Peltier heat transfer devices for the control of temperature and gradients 
in the electrophoretic medium. Fragments are detected by a transmission imaging spectrograph which simultaneously spatially focuses and 
spectrally resolves the detection region of all the migration lanes. The spectrograph comprises a transmission dispersion element and a CCD 
array to detect signals. Signal analysis comprises the steps of noise filtering, comparison in a configuration space with signal prototypes, 
and selection of the best prototype. Optionally post-processing is done by a Monte-Carlo simulated annealing algorithm to improve results. 
Optionally, an array of micro-reactors can be integrated into the instrument for the generation of sequencing reaction fragments directly 
from crude DNA samples. 
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* APPARATUS AND METHOD FOR THE GENERATION, SEPARATION, 

DETECTION, AND RECOGNITION OF BIOPOLYMER FRAGMENTS 

5 This specification includes an appendix containing a 

listing of the computer programs of this invention. 

A portion of the disclosure of this patent document 
contains material which is subject to copyright protection. 
The copyright owner has no objection to the facsimile 
10 reproduction by anyone of the patent document of the patent 
disclosure, as it appears in the Patent and Trademark Office 
patent file or records, but otherwise reserves all copyright 
rights whatsoever. 

This invention was made with government support under 
15 grant numbers 1R43HG00960-01, 1R43HG01013-01A1, and 

1R43CA65184-01 awarded by the National Institutes of Health. 
The government has certain rights in the invention, 

' FIELD OF THE INVENTION 

) 20 This invention relates to a method and apparatus for 

analysis of biopolymers by the electrophoretic separation of 
biopolymer fragments. More particularly, it relates to a 
method and apparatus for automated, high-capacity, concurrent 
analysis of multiple DNA samples. 

25 

BACKGROUND OF THE INVENTION 

Molecular biology research depends on biopolymer 
analysis. Conventionally, for this analysis, a biopolymer 
sample is first fragmented into shorter length biopolymer 

30 fragments by enzymatic or chemical means. The fragments are 
distinctively labeled with detection labels and then 
separated, often electrophoretically. The fragment pattern 
is then detected to obtain information about the structure 
and' nature of the original biopolymer sample. These steps 

35 are typically performed separately with human intervention 
required to transfer the sample from one step to another. 
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A well known example of biopolymer analysis is DNA 
) sequencing. See F. Sanger, et. al., DNA Sequencing with 

Chain Terminating Inhibitors, 74 Proc. Nat, Acad. Sci. USA 
5463 (1977); Lloyd M. Smith, et. al., Fluorescence detection 
5 in automated DNA sequence analysis, 321 Nature 674 (1986); 
Lloyd M. Smith, The Future of DNA Sequencing, 262 Science 530 
(1993), which are incorporated herein by reference. A 
prevalent sequencing method comprises the following steps. A 
DNA sample is first amplified, that is the DNA chains are 

10 made to identically replicate, usually by the polymerase 

chain reaction (PCR) . From the amplified sample, nested sets 
of DNA fragments are produced by chain terminating polymerase 
reactions (Sanger reactions) . Each chain fragment is labeled 
with one of four fluorescent dyes according to the chain 

15 terminating base (either ddATP, ddCTP, ddGTP, or ddTTP) . 
These fragments are then separated according to their 
molecular size by polyacrylamide gel electrophoresis and the 
unique dyes detected by their fluorescence. The DNA base 
sequence can be simply reconstructed from the detected 
) 20 pattern of chain fragments. 

Electrophoresis is the separation of molecules by 
differential molecular migration in an electric field. For 
biopolymers, this is ordinarily performed in a polymeric gel, 
such as agarose or polyacrylamide, whereby separation of 

25 biopolymers with similar electric charge densities, such as 
DNA and RNA, ultimately is a function of molecular weight. 
The prevalent configuration is to have the gel disposed as a 
sheet between two flat, parallel, rectangular glass plates. 
An electric field is established along the long axis of the 

30 rectangular configuration, and molecular migration is 

arranged to occur simultaneously on several paths, or lanes, 
parallel to the electric field. 

DNA sequence information is key to much modern genetics 
research. The Human Genome Project seeks to sequence the 

35 entire human genome of roughly three billion bases by 2006. 
This sequencing goal is roughly two orders of magnitude 
(factor of 100) beyond the total, current yearly worldwide 
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DNA sequencing capacity. Seeing o f ^ ™£Z ds 
for example M. °r proteins, is also crucial in other fields 
of biology. Other DA fragment analysis technique . such as 
PCR based diagnostics, genotyping (Ziegle, J. S. et al., 

5 Application of Automated DNA Sising Technology *« 

Genotypeing Microsatellite Loci. Genomics, M . 1026 "31 

. ,!,,■„, and expression analysis are increasing » use and 
importance . 

The need for methods to identify genes which are 
10 differentially expressed in specific diseases such as cancer 
is of paramount importance, for both the diagnosis of the 
Lease and for therapeutic intervention. 

genes specifically expressed in different diseases will lead 
to better classification of these diseases with regard to 
„ their biological behavior. A molecular ™™<^ f 
disease progression is fundamental to an understanding of 
specific disease. The identification of molecular 
diagnostics that correlate with variations in disease state 
growth potential malignant transformation and P»f-»» U 
2 , have tremendous implication in clinical practice, including 
the diagnosis and treatment of the disease. 

BO current method adequately or efficiently addresses 
the need to identify, isolate, and o"-."-"^ 1 ^ 
genes. A new biopolymer fragment analysis method has been 
developed based on the use of arbitrarily primed PCS 
(WilUams, J- c. Kubeli*. A.R. , Uva*, l--^™ 1 ' 
j.*.. andTingey, S.V., DKA polymorphisms amplified by 
arbitrary primers are useful as genetic marKers. »u e c 
Acids Res. IS, 6531-6535 (»90) , Welsh, J. and 
3, „., Genomic fingerprinting using arbitrary ™ £ 

..trix of pairwise combinations of primers. Nucleic Acids 
I s 19 5 ~ («.«)• «hen applied to samples are 

firsi reverse transcribed into cDHA and then ampUf led with a 
combination of arbitrary and specific labelled primers 

* p A random-PCR method (rPCR) to construct whole 
35 (Froussard, P., A random ^ ^ 

cDNA library from Low amounts of RNA. Nuci 
2900 (1992); Welsh, J. et al., Arbitrarily p-med PCR 
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fingerprinting of RNA. Nucleic Acids Res,, 20, 4965-70 
(1992)). The resulting labeled DNA fragments are then 
electrophoresed through a gel producing a "banding pattern" 
or "fingerprint" of the mRNA source and run in separate gel 
5 lanes (Liang, P. and Pardee, A. B., Differential Display of 
Eukaryotic Messenger RNA by Means of the Polymerase Chain 
Reaction- Science, 257, 967-971 (1992)). Differences in 
gene expression are then found by manually comparing the 
fingerprints obtained from two mRNA sources. Following this, 

10 fragments of interest are extracted from the gel. This 
method is severely limited by its reliance on 
autoradiographic methods to allow for the isolation of the 
genes of interest. Refinements of PCR based techniques 
have, however, led to the ability to produce more 

15 reproducible banding patterns, and to the use of an automated 
DNA sequencing machine to record the banding patterns 
produced with f luorescently labeled primers (Liang, P., 
Averboukh, L. and Pardee A. B. , Distribution and cloning of 
eukaryotic mRNAs by means of differential display: 

20 refinements and optimization. Nucleic Acids Res. 21, 3269- 
3275 (1993)). However, commercial automatic sequencing 
instruments (Applied Biosystems Inc., Foster City, CA, DNA 
sequencer) do not allow for the resolution of many dye labels 
or allow for the isolation of the f luorescently labeled 

25 samples after they are run. In an automated machine the 

sample is simply lost. Arbitrary primed PCR methods would be 
much more attractive if their limitations could be addressed. 

To address these limitations, our invention allows these 
gene fragments to be detected f luorescently and to be 

30 directly isolated, without human intervention, as they are 
identified. This is accomplished by electrophoretically 
separating the individual bands, and hence the differentially 
expressed genes, from the rest of the sample as it is 
running. This approach incorporates the advantages of the 

35 PCR based methods to differential screening, while raising 
the level of speed, sensitivity and resolution well beyond 
that achievable with radiographic techniques. To insure high 



- 4 - 



PCT/US96/06579 
WO 96/35810 

separation resolution, it is advantageous for the gel 
throughout a migration iane to be Kept as «xf«. as p s le 
and for the lanes to be sufficiently separated to be clearly 

distinguishable. 
5 to achieve these required improvements in the analysxs 

capacity for DNA and for other biopolymers, machines are 
needed for the rapid, concurrent analysis of large numbers of 
minute biopolymer samples. Further, the analysis must be 
done' with minimal human intervention and at low cost. Sxnce 
10 electrophoresis will remain the dominant biological 

separation technology for the foreseeable near future the 
technical demands of more rapid electrophoresis will shape 
the design of such machines. 

More rapid electrophoresis requires, primarily, higher 
15 voltages and stronger electric fields to exert greater forces 
on migrating molecules and move them at greater velocities. 
However, higher fields and velocities lead to increased 
resistive heating and consequent thermal gradients in the 
gel. Gel non-uniformities result, impairing separation 
20 resolution. To preserve resolution, ever smaller gel 

geometries must be used so that this damaging heat may be 
more readily conducted away. Moreover, parallel, narrow 
mi gration lanes are advantageous to increase the number of 
samples analysed simultaneously. While 
25 been described in geometries where the parallel glass p ates 
are spaced from 25 to 150 M m apart, instead of the usual 400 
Mm it is not possible to insure long, parallel, narrow, and 
closely spaced migration lanes in such a thin sheet. 
Alternatively, electrophoresis has been 
30 of capillary tubes down to 25 in diameter which completely 
define migration lanes. However, although the conventional 
plate arrangement is relatively easy to load with ge and 
samples, arrays of capillary tubes are much more difficult to 
load. Easy loading is advantageous to minimize analysis 
35 setup time and human intervention. 

The small geometries required by high resolution high 
voltage electrophoretic analysis create additional technical 
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demands. Where fluorescent dye fragment labeling is used, 
sensitive spectral detection devices are needed. These 
detection devices must respond quickly, since rapid migration 
presents fragment samples for detection with only slight time 
5 separation- Most significantly, rapid parallel analysis of 
many biopolymer samples requires the detection device to 
simultaneously detect fragments migrating in separate lanes. 
Conventional detectors cannot meet these demands. One design 
uses rotatable filters to select spectral ranges to present 

10 to a single active detector element, this assembly being 
scanned mechanically across all the migration lanes. 
However, such mechanical single detector assemblies waste 
most of the available fluorescence energy from the fragment 
samples, limit detection speed, prohibit simultaneous 

15 detection, and slow sample analysis. Use of spectrally fixed 
filters also limits dynamic adaptation to different detection 
labels. 

While a spatially compact disposition of the migration 
lanes might permit simultaneous observation, sample loading 

20 into the migration lanes prior to an analysis run requires 
physical access to the migration lanes. Access is easier and 
more rapid for widely spaced lanes. Conventional, flat-plate 
techniques have only straight, parallel lanes and cannot 
accommodate these divergent requirements. 

25 A high throughput analysis machine would generate 

voluminous detection data representing the rapidly migrating 
biopolymer fragment samples. Manual analysis of such data is 
not feasible. To minimize human post analysis checking, 
these methods should achieve accuracies of 99% or greater. 

30 Further, the data would contain fragment detection events 
closely spaced, even overlapping, in time. Moreover, small 
electrophoretic geometries and small fragment sizes would 
generate only weak signals with increased noise. Prior 
electrophoretic devices, on the other hand, generated only 

35 clearly separated detection events with good signal 
intensities. 
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Once fragment events are discriminated, the entire data 
for a run must be assembled to determine the nature of the 
original biopolymer sample. For DNA sequencing, this is 
conventional: the bases and their order in the DNA sample are 
5 the terminating bases of the fragments in the order of 
increasing molecular weight. When sequencing on a genomic 
scale, the bases and their order must be assembled into an 
ordered listing of the bases of the genome of the organism 
being studied. 

10 All the foregoing technical requirements have prevented 

creation of an integrated machine for rapid, concurrent 
generation and analysis of large number of biopolymer 
fragment samples. The need for such a machine is widely felt 
in such areas as biological research, for example the Human 

15 Genome Project, the biotechnology industry and clinical 
diagnosis. 

SUMMARY OF THE INVENTION 

The apparatus and method of this invention have for 

20 their object the solution of these problems in 

electrophoretic biopolymer fragment analysis, and in 
particular, in DNA sequencing. In one aspect, the invention 
is an integrated, high capacity, low-cost machine for the 
automatic, concurrent analysis of numerous biopolymer 

25 fragment samples. Among its objects are the provision of: 
easily loaded, simultaneously observable, electrophoretic 
geometries comprising multiple migration lanes each of the 
order of 100 jra and down to 25 Mm or smaller; a spectral 
detection system which is capable of sensitive, simultaneous 

30 response to signals emitted by all the migration lanes and 
which is dynamically adaptable, without physical 
intervention, to different dyes, different numbers of dyes, 
and different coding of fragments with dyes; automatic 
generation of multiple biopolymer fragments directly on the 

35 analysis machine from crudely purified biopolymer samples and 
bulk reagents (for DNA, sequencing reactions would be 
automatically carried out) ; and an automatic data analysis 

- 7 - 



WO 96/35810 



PCTYUS96/06579 



method for transforming time-series of spectral signal to 
biopolymer sequences and which is adapted to the unique 
problems of discriminating overlapping and weak fragment 
recognition events while achieving 99% or greater recognition 
5 accuracies. 

A high capacity analysis machine according to this 
invention includes elements for concurrent loading of 
multiple samples for analysis onto the machine, an 
electrophoretic module for actually performing the sample 

10 separation, a spectrometer capable of simultaneous spatial 
and spectral resolution and detection of light signals 
representative of sample fragments as they are separated by 
the electrophoretic module, and elements for converting the 
detected signals into the sequence and character of the 

15 biopolymer samples analyzed. 

Different sample loading techniques are used by 
different versions of this invention. One technique consists 
of simply loading small liquid volumes containing fragment 
samples -manually or automatically - into wells in the 

20 electrophoretic medium. More preferable is solid phase 

loading. Here a comb-like device has teeth which are sized 
and spaced to fit concurrently into all the sample wells in 
the electrophoretic medium. Each tooth carries a fragment 
sample attached by various denatureable binding methods. All 

25 the samples are released concurrently when the teeth are 

dipped into the sample wells. Advantageously, combs may have 
50 to 100 teeth for concurrent loading of that number of 
samples. Notches machined in the comb insertion region can 
aid the sample loading by aligning the comb with the sample 

30 wells. Regardless of how the samples are loaded, the DNA 
fragments can be collected at a low voltage focusing 
electrode prior to the electrophoretic separation, thereby 
increasing the intensity and resolution of the analysis 
signals detected. 

35 Most preferable, especially for DNA sequencing, is a 

reactor array to generate fragment samples from crude DNA and 
to inject them onto the electrophoretic module. The reactor 
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array comprises an array of micro-reactor chambers each with 
a minute inlet port and capillary inlet and outlet passages. 
The capillary passages are controlled by micro-machined 
valves. In one example a bubble, created by heating the 

5 capillary fluid, is used to control fluid flow through a 
capillary tube. The heating is by a resistive micro heating 
element formed by depositing a resistive thin film in the 
wall of the capillary. Leads are deposited to conduct current 
from an external controller to the heating element. To use 

10 this array, samples are introduced through the inlet ports; 
reagents are successively introduced through the capillary 
inlets; and fragment samples are ejected through the 
capillary outlets when reactions are complete. Reactions are 
facilitated by thermal control and heating elements located 

15 within each reactor. 

Enabling the use of such a micro-reactor array for DNA 
sequencing is the use of dUTP rich PCR primers, a method of 
this invention. PCR amplification and Sanger sequencing can 
proceed sequentially without interference in one reactor by 
20 using the enzyme Uracil DNA Glycosylase (UDG) . UDG digests 
dUTP rich PCR sequencing primers into fragments ineffective 
for initiating chain elongation in the subsequent Sanger 
sequencing reactions. 

Also enabling the use of the microreactor array for DNA 

25 sequencing is the use of the enzymatic pretreatment of PCR 
products using a combination of Exonuclease I and shrimp 
alkaline phosphatase (United States Biochemicals , Cleveland, 
Ohio) . The activity of both of these enzymes in PCR buffer 
eliminates the need for buffer exchanges. The Exonuclease I 

30 enzyme removes the residual PCR primers, while the shrimp 
alkaline phosphatase de-phosphorylates the dNTP's 
inactivating them. The removal of both the primers and 
excess dNTP's prevents them from interfering in the 
subsequent Sanger sequencing reactions. 

35 Enabling the use of the microreactor array for other DNA 

fragment analysis methods including expression analysis, 
genotyping, forensics, and positional cloning is the direct 
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incorporation of fluorescent labels onto the 5 7 end of the 
original PCR primers. These primers can be either specific 
for known sequences, as in the case of genotyping or 
arbitrary as in the case of expression analysis, A series of 
5 different dyes can be used to allow the PCR amplification 
step to take place in a multiplex fashion within a single 
reactor. 

Once the samples are loaded, separation occurs in the 
electrophoretic module. The invention is adaptable to use 
10 different such modules. One such module comprises 
rectangular plates spaced slightly apart to define a 
rectangular sheet of electrophoretic medium. Migration 
occurs in straight, parallel lanes through this medium. 
Another version uses ultra-thin plate spacing, down to 25 jan, 
15 and high electrophoresis voltages, thereby achieving rapid 
fragment separation. 

The preferred electrophoretic module is constructed 
using two plates with a photolithographically generated 
formation of grooves bounded by the plates. Numerous non- 
20 intersecting grooves etched or otherwise formed on the top 
plate, together with the bottom plate, define the migration 
lanes. The lanes are therefore separate non-communicating 
channels for holding separation medium. Different groove and 
migration lane geometries are possible. One geometry is 
25 straight, parallel lanes. The preferred geometry spaces 
lanes widely at the loading end of the module, to ease the 
physical aspects of loading, but converges the lanes closely 
at the detection end, to permit simultaneous detection of 
separated fragments in all lanes. Groove size may be down to 
30 25 /zm to allow high voltage rapid electrophoresis. The 
grooves are preferably fabricated with standard photo- 
lithography techniques and, if necessary, subsequent etching 
and coating, various combinations of substrates and 
processes are available including patterning insulators on 
35 conductive surfaces, patterning polymers on 

insulating/ conductive surfaces, or patterning conductors and 
coating with insulators. Alternatively, a master mold can be 
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formed photolithographically, followed by duplication of the 
grooves in disposable substrates via casting. 

in all versions the highest allowable electrophoretic 
voltages are used, where the maximum voltage is determined as 
5 that at which the mobility of biopolymer fragments 

longer sufficiently length dependent. Thermal control xs 
achieved with a thermal control module in good thermal 
contact with the bottom plate. The preferred electrophoresis 
Module provides especially good thermal control, since the 
10 small separation medium channels are in close contact on a U 
sides with top and bottom plates. The thermal control module 
has a heat sink adapted to heat exchange with an air or water 
exchange fluid. Between the heat sink and the bottom plate 
of the electrophoretic module are bi-directional heat 
15 transfer devices. Preferably these are Peltier thermo- 
electric modules disposed for pumping heat m both 
directions. Thereby, the bottom plate can be heated and 
cooled as needed and thermal gradients eliminated. 

in one version, a transmission imaging spectrograph is 
20 used to detect separated fragments. The invention is 

particularly adapted to DNA seguence or other DNA analysis 
methods, in which each of the different fragment types is 
labelled with a different spectrally distinctive fluorescent 
dye. One or more lasers at the separation end of the 
25 electrophoresis module excites the dyes to emit light. 

fitted light from samples in the migration lanes is indent 
on a collection lens. The light then passes first through a 
laser light filter, then through a transmission *isP«sxo«» 
element, which spectrally separates the light, and finally 
30 through a focusing lens. The focused light is incident on a 
charge coupled device (CCD) array which detects the 
simultaneously spatially focused and spectrally diverged 
light from the detection regions of all the migration 
channels. Electronic signals from the CCD array provide 
35 information about the character or seguence of the DNA 
sample. 
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in the preferred version, a microf abricated set of 
components replaces the large scale imaging spectrograph. 
Here the function of the two camera lenses and diffraction 
grating is integrated within a single binary optic 
5 diffractive element. The diffractive element can be 
fabricated either on a glass surface, or on a separate 
material to be inserted between glass pieces. 

The analysis system converts the electronic signals into 
biopolymer information which in one example is DNA base 
10 sequence. It comprises a standard programmable computer with 
short and long term memory and loaded with analysis programs 
particularly adapted to the preferred version of this 
invention. Interface devices place the electronic CCD output 
signals in the computer memory as binary signals. These 
15 signals are grouped both into spatial groups, one group for 
each migration lane, and into spectral groups, one group for 
each spectrally distinctive dye label. The grouped signals 
are filtered to minimize noise: high-pass filtering removes 
baseline low frequency noise, and low-pass filtering removes 
20 high-frequency single spike noise. If multiple samples are 
contained within a single migration lane, as enabled by the 
spectral multiplexing, the signals associated with each of 
the samples can be distinguished and grouped together using 
knowledge of the dyes associated with each of the samples. 
25 The filtered signals are then compared to fragment 

recognition prototypes and the best prototype is chosen for 
each segment of filtered signals. The best prototype is that 
prototype whose averaged signal behavior for nearby times is 
closest to the observed signal behavior for the same nearby 
30 times. Closeness is simply measured by the ordinary distance 
between the observed signals and the prototypes. The base 
generating the input signals is identified as the base 
associated with the closest prototype. The sequence of 
closest prototypes thereby determines the DNA sequence and 
35 this sequence is output from the analysis system. In one 
embodiment, distances to each of the prototypes, or 
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averages of the distances to the prototypes associated to the 
four possible bases, are also output. These values can be 
used to judge the confidence which one should assign to the 
DNA sequence, and in particular can be used to aid the 
5 -comparison and assembly of multiple instances of the sequence 
of a given segment of DNA. 

The prototypes are the averages of filtered signals 
generated in the apparatus of this invention from the 
analysis of known DNA. They are carefully chosen to be 
10 adapted to the characteristics of this invention. 

Preferably, they are chosen to include the signals generated 
by two sequential DNA fragments. 

Further analysis is done in one embodiment of the 
invention. Any DNA sequences which are known (vector DNA) 
15 are trimmed out of the observed sequence. The remaining 

sequence is proofread by Monte Carlo simulated annealing. At 
random observation times a random alteration to the 
determined base sequence is made. The closeness between the 
entire resulting sequence and the entire filtered observed 
20 signal is evaluated. If a probabilistic test based on this 
closeness is met, the sequence alteration is retained; 
otherwise it is discarded. Alter and test activity is 
repeated until no further significant improvements occur. 
This step permits global improvements to be made m the 
25 overall sequence determined. 

BRIEF DESCRIPTION OF THE DRAWINGS 

These and other features, aspects, and advantages of the 
present invention will become better understood by reference 
30 to the accompanying drawings, following description, and 
appended claims, where: 

Fig. 1 shows an overall view of a preferred embodiment 

of the invention; 

Fig. 2A shows details of the transmission imaging 
35 spectrograph that may be used in the device of Fig. l; 

Fig. 2B shows details of an alternative transmission 
imaging spectrograph of the device of Fig. l; 
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Fig. 3 shows a ray trace of the transmission imaging 
spectrograph of Fig. 2; 

Fig. 4 shows details of an alternative electrophoresis 
module for use in the device of Fig. 1; 
5 Figs. 5A-5E show details of the process for making the 

electrophoresis module of Fig. 4; 

Fig. 6 shows details of the module of Fig. 4; 

Fig. 7 shows the operation of the module of Fig. 4; 

Fig. 8 shows details of an array of two micro-fabricated 
10 reactors of the device of Fig. 1; 

Figs. 9A-9B show a valve design for the reactors of Fig. 

8; 

Figs. 10A-10D show the generation of solid phase 
fragments in the device of Fig. l; 
15 Fig. 11 shows the steps of a dUTP digestion process ; 

Fig. 12 shows an overall flow chart of the analysis 
steps used in practicing the invention; 

Fig. 13 shows the flow chart for the analysis 
preprocessor step of Fig. 12; 
20 Fig. 14 shows the general operation of the basecalling 

step of Fig . 12 ; 

Fig. 15 shows the flow chart for the analysis 
basecalling step of Fig. 12; 

Fig. 16 shows the flow chart for the analysis 
25 proofreading step of Fig. 12; 

Fig. 17 shows a recording of an illustrative output of 

the invention; 

Figs. 18A, 18B and 18C show recordings of illustrative 
output of the invention from three separation runs; and 
30 Fig 19 A and 19B show recordings of the output of the 

spectrograph of Fig. 2A. 

DETAILED DESCRIPTION 
Instrument Overview 

35 Fig. 1 illustrates a preferred embodiment of the 

integrated biopolymer analysis instrument of the invention. 
Only essential components are depicted; non-essential 
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mechanical components conventional in instrument design are 
not depicted. The following is a general description of the 
instrument and its use. Detailed descriptions of the 
construction and use of components follow. 
5 Element 104 is an electrophoresis module. As 

illustrated, it comprises a micro-fabricated gel 
electrophoresis plate (microFGE) 106, a micro-fabricated 
reactor array (microFRA) 110, and a temperature control 
subunit 108. MicroFGE 106 comprises converging 

10 electrophoresis migration lanes 107 formed as grooves in a 
glass or plastic plate and containing separation medium. 
Biopolymer fragments differentially migrate in these lanes 
from left to right under the influence of an electric field 
supplied by driving electrodes (not shown) at opposite ends 

15 of the electrophoresis module. In other versions, the 

microFGE could have lanes of other geometries, for example, 
parallel lanes. It could also be replaced with a 
conventional non-grooved glass plate. MicroFRA 110 is the 
source of samples of biopolymer fragments for analysis. The 

2 0 samples are generated from raw biopolymer samples in the 
micro-reactors of the array and loaded directly into the 
electrophoresis plate typically with a different sample in 
each migration lane, or with multiple samples contained in a 
given migration lane. Illustratively, the fragments are 

25 labelled with one of four fluorescent dyes according to the 
chain terminating base (either ddATP, ddCTP, ddGTP or ddTTP) 
as is known in the art. In other versions, the microFRA could 
be replaced with a solid or liquid phase loading apparatus. 
At the right are one or more lasers 102 that generate a 

30 collimated beam 113 that is directed to pass transversely 
through the microFGE in an unobstructed laser channel 115. 
The terminal ends of the migration lanes 107 intersect this 
channel. The beam thereby simultaneously illuminates the 
separated biopolymer fragments in the different migration 

35 lanes and excites their labels to fluoresce. A transmission 
imaging spectrograph 100 is disposed above the beam. The 
spectrograph has within its field of view all the converged 
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migration lanes in microFGE 106 and is equipped to make 
simultaneous spectral observations of fluorescence in all of 
the migration lanes. Light resolved by the spectrograph is 
converted into electronic signals representative of the 
5 different fluorescent labels that are excited. As a result, 
the separated biopolymer fragments are detected. 

Electronic signals representing these observations are 
read into a controller/power supply 114 for on-line or off- 
line processing by a computer 112. The computer performs an 

10 analysis adapted to the characteristics of an individual 
biopolymer analysis instrument and its particular running 
conditions. The analysis method generates information 
characterizing the original biopolymer samples, for example 
DNA base sequences or genotypical character. 

15 Optionally, the computer can also control an analysis 

run by commanding the controller/power supply to generate 
necessary voltage outputs. For example, controller/ power 
supply 114 generates the high voltages applied through leads 
116 to the drivirtg electrodes to drive molecular migration in 

20 the electrophoresis module. If the microFGE has the optional 
capability to shunt fragment samples between migration lanes 
as described below in conjunction with Fig. 7, the 
controller/power supply also generates necessary shunting 
voltages which are applied to shunting electrodes 118 in the 

25 microFGE module. Other voltages which are supplied by the 
controller/power supply 114 include those which cause the 
loaded DNA fragments to concentrate at a focusing electrode 
prior to the initiation of electrophoresis. 

30 Transmission Imaging Spectrograph 

The transmission imaging spectrograph 100 is designed to 
resolve spectra within the range of common dye labels used in 
biopolymer analysis (approximately 500 nm to 700 nm) , to have 
high light gathering ability, and to have a wide field of 
35 view with little light loss for peripheral images. These 
features permit the simultaneous viewing of many migration 
lanes. Advantageously, spectrograph 100 may have a spectral 

- 16 - 



WO 96/35810 



PCT/US96/06579 



range on the order of 400 nm to 800 ran. Fig. 2A illustrates 
one version of this component. Non-essential mechanical 
components conventional in instrument design are not 
depicted. 

5 As indicated previously, laser 102 generates laser beam 

113 which is directed through laser channel 115 so as to 
intersect electrophoresis migration lanes 107. Light is 
scattered from this beam primarily by two mechanisms. First, 
there is some scattering at the laser wavelength by the 
10 separation medium and other matter traversed by the beam. 
Second, when a labeled fragment passes through the beam, it 
is excited and fluorescence at characteristic wavelength (s) 
is emitted in all directions. 

A portion 240 of this scattered light is incident on 
15 spectrograph 100. Spectrograph 100 comprises a collection 
lens 222, a laser rejection filter 236, a transmission 
dispersion element 224, a focusing lens 226 and a charge 
coupled device (CCD) array detector 228. The CCD array 
comprises a two-dimensional array of CCD detector elements 
20 oriented with its short axis along spectral divergence axis 
244 and its long axis along spatial focusing axis 245. This 
orientation gives adequate spectral range and maximal spatial 
range. Electronic data output from the CCD is transferred to 
the controller/power supply. 
25 collection lens 222 collimates the scattered light into 

parallel rays. Collimated light then passes through laser 
rejection filter 236, which absorbs light at the laser 
wavelength. The remaining filtered light, which consists 
essentially of fluorescence from the fragments, then passes 
30 through transmission dispersion element 224, which can be 
either a grating prism (known as a grism) , as illustrated, or 
alternatively a transmission diffraction grating. This 
element separates the light into rays of differing 
wavelength, which diverge along the direction of spectral 
35 axis 244. Focusing lens 22 6 then focuses the light on CCD 
array detector 228. 
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images of the fluorescing fragments in the different 
lanes 107 are formed along spatial axis 245 and 
simultaneously separated by wavelength along spectral axis 
244. in this manner, different dye labels in different 
5 migration lanes produce different patterns along the spectral 
and spatial axes and can be simultaneously discriminated. 

Fig. 3 illustrates the optics of spectrograph 100, 
spectral dispersion being out of the plane of the diagram. 
To maximize the field of view focused on the detector and to 
10 minimize loss of light at the edges of the field of view, 
distance 330, between the collection lens 222 and the 
focusing lens 226, should be as short as possible. As a 
result, only extreme off-axis rays such as ray 334 will 
completely miss detector 228 and the optical parameters of 
15 the spectrograph can be selected so that sufficient 

fluorescence from each of the migration lanes is incident on 
detector 228 to permit identification of the labelled bases. 
To achieve minimum distance 330, the wavelength dispersive 
element is preferably a transmission dispersion element, 
20 either a transmission grating or a grism. 

The following components are exemplary for one version 
of the transmission imaging spectrograph. For collection 
lens 222, a Pentax 165 mm f2.8 lens or a 250 mm f 5. 6 Sonnar 
medium format camera lens from Carl Zeiss is used. These 
25 lenses are commercial camera lenses for use with medium 
format photography chosen both for their large numerical 
aperture and wide field of coverage and to match the 
demagnification reguired by the other components in the 
system. Preferably, the lens is a 400 mm f8 Osaka large 
30 format lens, or other large format long focal length lens 
which enables simultaneous imaging of a wide cross-section of 
electrophoresis module 104. Laser rejection filter 236 is a 
Raman Edge Filter REF521 from Omega Optical Inc. 
(Brattleboro, VT) . It has an optical density of 3 to 4 at 
35 515 im, a transmission greater then 80% over most of the 
design spectral range, high absorption near the laser 
wavelength, and behaves well for light incidence off the 
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optical axis. Preferably, laser rejection filter 236 is one 
or several holographic notch rejection filters from Kaiser 
Optical Systems (Ann Arbor, MI) which enable the use of 
multiple laser excitation sources by transmitting light of 
5 both lower and higher energy than that of the rejected laser 
light. Transmission dispersion element 224 is a Diffraction 
Products (Woodstock, IL) , 3090-84ST transmission grating 
with: 600 grooves/mm, a large clear aperture of 84 mm x 84 
mm, a back face single layer MgF 2 anti-reflection coating, and 

10 best efficiency at 500 nm with a first order grating 
efficiency of approximately 50%. Focusing lens 226 is a 
Canon 85 mm fl.2 lens. This is a commercially available 35 
mm format camera lens with aspherical elements and special 
low dispersion glass, allowing the design to be optimized for 

15 a very large numerical aperture. The CCD array detector 228 
is a Princeton Instruments Inc. (Trenton, NJ) TE/CCD 1024E 
Detector with a ST 130 DMA Controller. This array detector 
is 1024 x 256 pixels with pixel size 27 x 27 jam and operated 
in multi-pinned phase mode with fast readout along the long 

2 0 axis. This Grade 1 CCD has a large physical dimension along 
the long axis which provides the spectrograph with a wide 
field of spatial coverage (the entire width of the gel) while 
limiting the demagnif ication required by the lenses selected. 
Alternatively, a frame transfer CCD can be used that allows 

2 5 for transfer of an image rapidly to a masked portion of the 
array for subsequent readout, providing a very rapid rate of 
sequential image acquisition. Lasers 102 can be, for 
example, Argon ion or solid state or HeNe, with exemplary 
single laser wavelengths being 514.5 nm or 488 nm (Argon ion) 

30 or 532 nm (NdYAG solid state) or 523 nm (NdYLF solid state) 
or 633 nm (HeNe) , and exemplary pairs of laser wavelengths 
being 514.5 and 633 nm, or 532 and 633 nm. A direct doubled 
solid state diode laser (Coherent Inc., Santa Clara, CA) at 
430 nm can be used in a triple laser excitation instrument 

35 together with 532 nm and 633nm lasers and appropriate 

holographic notch rejection filters to achieve the ability to 
simultaneously excite and detect all dyes in the wavelength 
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range 440 to 700 nm. Illustratively, in the case of two 
laser wavelengths at 514.5 nra and 633 nm, and five dyes, the 
green laser is used to excite the FAM, JOE, TAMRA, and ROX 
dyes (Applied Biosystems/Perkin Elmer, Foster City, CA) and 
5 the red laser is used to simultaneously excite the Cy5 dye 
(Biological Detection Systems, Pittsburgh, PA). By way of 
further example, the FAM, JOE, TAMRA, and ROX dyes are used 
to label the ddCTP, ddATP, ddGTP, and ddTTP reactions from 
the forward primer, and the Cy5 dye is used to label one 
10 reaction, say ddTTP, from the reverse primer. All five dyes 
are recognized while being run simultaneously in a single 
migration lane. 

One version of the imaging spectrograph was designed for 
15 a spectral range of .approximately 510 nm to 640 nm, which 
spans the fluorescence wavelengths of many dye labels. The 
one-dimensional grating equation is: 

j2sin(a)-sin(p) = ^ U> 

o 



20 



25 



where m is the order number, A is the wavelength (in nm) , o 
is the groove spacing, n is the index of refraction of the 
grating material, and a and 0 are. the angles of incidence and 
diffraction, respectively. For first order (m = -1), 600 
groove/mm grating, and 0* incidence angle: 

sin(P) - ^ (2) 



Thus 510 ran light diffracts at an angle 17.8"; 575 nm light 
at 20.2*; and 640 nm light diffracts at 22.6*. With an 85 mm 
focal length second lens focused at infinity, and 575 nm 
light directed to the center of the short axis of the CCD 
camera, then either 510 nm or 640 nm light (diffracted by 2.4 
degrees less or more than 575 nm light, respectively) will 
strike the CCD array at a distance y in mm where 
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tan(2.4)=-£- < 3 > 
85mm 



10 



Computing, y = 3.56 mm. This corresponds to 132 pixels in 
5 the CCD camera with 27 '/m per pixel, just slightly more than 
the 128 pixels available from center to edge of the short 
axis. 

Thus these components provide a version of the 
spectrograph with adequate spectral resolution over the 
spectral design range. If desired, CCD array 228 can be 
rotated by 90* enabling observation of fluorescence over an 
extended spectral range from 500 nm to near infrared, but 
over a reduced spatial range. Optionally, a grating with 
lower groove density (300 grooves/mm) can be used to increase 
the spectral range observed while maintaining spatial 
coverage . 

Alternatively, the above components can be reduced in 
size and integrated into a microfabricated imaging 
spectrograph positioned in contact with a CCD array. A 

20 cross-section through one of the many channels of a binary- 
optic spectrograph array is shown in Fig. 2B. Here the two 
camera lenses and diffraction grating of Fig. 2A are replaced 
by a single binary diffractive element 237 located between 
supporting glass elements 238, 239. This diffractive element 

25 can be fabricated on a glass surface as shown or separately 
on a material to be inserted between glass pieces by 
conventional photo-lithograph techniques. The fabrication of 
similar microlenses is known in the art. See, for example, 
w.B. Veldkamp et al., "Binary Optics," scientific American , 

30 266:5, pp. 92-97 (1992) which is incorporated herein by 
reference. To form the binary diffractive element, Si02 is 
typically deposited onto a glass surface and is then 
patterned using standard e-beam techniques. 



35 



Electrophoresis Module 
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The electrophoresis module is designed to provide a 
maximum number of small, closely spaced migration lanes, to 
allow use of high voltages, to dissipate resistive heat, to 
maintain high resolution, and to be adaptable to alternative 
5 sample loading means. Together with the transmission imaging 
spectrograph, these features promote rapid, concurrent 
analysis of many biopolymer samples. Fig. 4 illustrates the 
electrophoresis module. In this figure microFRA 110 has been 
replaced by a solid phase loading means. Alternatively, a 

10 conventional liquid phase loading means may be used. Only 
essential elements are depicted. Elements conventional in 
instrument design are omitted. See, for example, US Patent 
5,228,971, Brumley et. al., Horizontal Gel Electrophoresis 
Apparatus (Jul. 20, 1993); US Patent 5,137,613, Brumley et. 

15 al., Horizontal Gel Electrophoresis Apparatus (Aug. 11, 

1992); and US Patent 5,171,534, Smith et. al., Automated DNA 
Sequencing Technique (Dec. 15, 1992) which are incorporated 
herein by reference. 

The electrophoresis module comprises a top plate 438, a 

20 bottom plate 446, end pieces 458 and 459 and a comb pressure 
piece 456. Bottom plate 446 provides support and attachment 
for other module components and serves as the bottom of the 
migration lanes and buffer wells. Component attachment can 
be with conventional thumbscrew clamps or other standard 

25 mechanical devices. Positioned and attached at the left and 
right ends of the bottom plate are two end pieces 458 and 
459. The end pieces include electrodes for applying high 
voltage across the migration lanes. The end pieces have a 
substantially "U" shape, defining buffer wells 442 within the 

30 arms of the "U» . Buffer solution in these wells is in contact 
with the separation medium in the migration lanes. The end 
pieces are sealed to adjacent elements by elastomer seals 
454. Left end piece 458 is sealed to comb pressure piece 
456, and right end piece 459 is sealed to the right end of 

35 top plate 438. 

Positioned, attached, and sealed adjacent to the left 
end piece is comb pressure piece 456. The pressure piece 
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permits liquid communication between the left buffer well and 
the separation medium. Between the pressure piece and top 
plate 438 is gap 463 which guides the insertion of a well- 
forming comb and, optionally, a solid phase loading comb. 
5 One such comb is shown in Fig. 4 having a base 460 and 
numerous teeth 462. The other comb is similar except as 
noted below. The weli -forming comb is used in a conventional 
manner to form sample loading wells in the separation medium 
in gap 463. Prior to polymerization of the separation medium, 
10 this comb is inserted in gap 463 and fixed in position by a 
horizontally applied force between the comb pressure piece 
and top plate 438. This force is conventionally generated by 
adjustable attachments bearing horizontally against the left 
end piece 458 so as to bias the pressure piece against the 
IS comb. Once the separation medium has polymerized, the well- 
forming comb is removed leaving sample loading wells at the 
position of the teeth. In a preferred embodiment, comb 
pressure piece has machined notches 461 that match the comb 
teeth 462 to provide rigid formation of wells and aid sample 
20 loading. In another embodiment, a "shark's tooth" comb is 
used inscead of the well forming comb. As is known in the 
art, the shark's tooth comb has one substantially flat edge 
containing small protrusions, and an opposite edge containing 
multiple teeth. The comb is first inserted into gap 463 with 
25 the substantially flat edge oriented toward the bottom plate, 
in order to form a thin layer of separation medium along the 
bottom of the gap. The separation medium is then polymerized 
and the comb is withdrawn. The comb is then inverted and 
reinserted into gap 463 so that the teeth impinge upon the 
30 thin layer of separation medium. Wells are formed in the 
spaces between the teeth when the teeth are compressed 
between the top plate 438 and comb pressure piece 456. 
Samples are then loaded into the wells formed between the 

teeth of the comb. 
35 A solid phase loading comb may also be guided into gap 

463 to load biopolymer fragment samples prior to analysis. 
The teeth of the loading comb are spaced and sized to fit in 
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the sample wells formed by the well-forming comb and, in the 
case of the preferred embodiment, in the notches machined in 
comb pressure piece. The teeth have the same center-to- 
center spacing as those of the well-forming comb but are 
5 smaller in size. Fragment samples are bonded to the teeth of 
the loading comb, the comb is guided by notches 4 61 into gap 
4 63 so that the teeth enter the sample wells, and the 
fragment samples are released into the wells. The technique 
achieves rapid, error free, parallel loading of all the 

10 samples for analysis. For further details concerning 

parallel sample loading, see A. Lagerkvist et al., "Manifold 
Sequencing: Efficient Processing of Large Sets of Sequencing 
Reactions," 91 Proc. Nat. Acad. Sci. USA , 2245 (1994) which 
is incorporated herein by reference. 

15 Alternatively, conventional liquid phase loading may be 

used. In such case, small liquid volumes containing the 
fragment samples are directly placed into the sample wells. 
Various conventional mechanical devices may be employed to 
speed up and reduce errors in this manual process. 

20 After injection of samples into the loading wells, but 

prior to electrophoretic separation, the DNA samples can be 
concentrated using a focusing electrode. Low voltage applied 
to the focusing electrode, located within the migration path 
near the load well, causes the DNA samples to migrate and 

25 gather at the electrode. Immediately following such 

focusing, electrophoretic separation is initiated. This 
avoids any broadening associated with diffuse entry of 
samples into the separation medium. As a result, the 
detection of signal temporal resolution is maximized. 

30 Furthermore, since the samples are concentrated into small 
regions of the migration lane and since substantially all the 
DNA fragments loaded enter into the separation medium, signal 
intensity is maximized. 

35 The focusing electrode is required to adhere well to the top 
plate 438 or bottom plate 446, and should limit the 
electrolytic generation of gas bubbles during the collection 
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of the loaded DNA fragments. It can be fabricated onto a 
typical substrate using the following process, 
known in the art, 

5 The process begins with depositing a thin (-100 

Angstrom) adhesion layer of titanium metal onto the 
substrate, and then depositing a layer of platinum around 
1000 Angstrom thick on top of this adhesion layer. These 
depositions can be done by thermal evaporation, electron beam 

10 evaporation, sputtering or any other technique that yields a 
clean, uniform layer* Next, photoresist is spin coated on 
top of the metal and patterned using standard 
photolithographic processing. The pattern produced in the 
photoresist is transferred to the underlying metals by 

15 etching. This can be accomplished by a liquid chemical etch, 
by a dry plasma etch, by a photoresist lift-off procedure or 
by any other method which accurately reproduces the pattern 
of the photoresist. Once this etching is completed, the 
photoresist is removed and the substrate cleaned to leave the 

20 final electrode pattern. 

The microFGE top plate, illustrated in Fig. 4, includes 
numerous similar etched migration lane grooves 107 of roughly 
semi-circular cross section and of diameter between 10 and 
several 100 jna. The microFGE is positioned and attached in 

25 close contact with the bottom, plate so that the etched 

grooves form individual, isolated migration lanes. The lanes 
are bounded on the bottom by the bottom plate and on the top 
and sides by semi-circular microFGE grooves. In Figs. 1 and 
4 the etched grooves are illustrated as straight and 

30 converging at the laser illumination and detection region. 
Alternative lane geometries are possible. A preferred 
geometry includes grooves with first, straight sections that 
are widely spaced communicating with second sections that 
converge to a narrow spacing. 

35 Instead of being etched with grooves, top plate 438 may 

be a conventional glass plate such as a sheet of optical 
quality glass, such as BK-7, polished to within 1 /xm 
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flatness. Such a sheet would be separated 25 to 150 /im from 
bottom plate 446 by polyester spacer gaskets. 

Laser channel 115 is formed from an etched laser groove 
457 extending across the plate with a depth not less than 
5 that of each of the migration lane grooves. Laser windows 
444 cover the ends of the laser groove. 

. As shown in Fig. 4, a laser beam 113 from laser 102 is 
directed through channel 115 and illuminates fragments 
migrating down all the lanes. Alternatively, the laser can 

10 be brought into the lane first by directing it through the 
top or bottom plate and then by causing it to reflect from a 
suitably positioned mirror mounted within channel 115 so that 
it propagates through the laser channel. As still another 
alternative, individual laser sources can be fabricated into 

15 each lane by means of known photolithographic processes. In 
another mode of the invention, the laser can be caused to 
fan-out into a narrow sheet using line-generating optics 
which are known in the art. The sheet of laser light is 
directed to pass through the upper or lower glass plate, into 

20 and across the laser channel, where it can be focused to a 
line, thereby illuminating the fragments migrating down all 
the lanes. 

Prior to an analysis run, a separation medium 4 51 is 
placed in all migration lane grooves 107 and laser groove 457 

25 to resolve the fragment patterns. Separation medium 451 

within the grooves is in contact with liguid buffer in buffer 
end wells 442. Most separation involves the use of polymer 
sieving media, either cross-linked gels or linear liquids. 
Most are based upon polyacrylimide. For example, when 

30 unpolymerized polyacrylimide is introduced into the lanes as 
a liquid, it polymerizes over a few minutes. Rarely is the 
media reusable and the careful cleaning required is labor 
intensive . 

Alternative separation media are possible with these 
35 systems. Recent work has shown that 0.5 micron posts of Si02 
can retard the mobility of like sized DNA fragments (10 
kilobases) to enable size sieving. W.D. Volkmuth et al. "DNA 
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Blectrophoresis in Microlithographic Arrays,- TO, 
eco (»«). -aucing the dimension * ^'^Jl^ 
„m size «iH increase the resolution to nearly base-pair 
ZZr alternative »v be offered simply by ^ ~ * 
5 polystyrene spheres of an appropriate size. Huber et. al, 
^High-resolution Liquid Chromatography of DNA 
„on porous PolytStyrene-Divinylbenzene, Particles." Huciexc 

2^irJ«; Res 21, 1061-1066 (1993). 

Pig ^ 11 ustrates temperature control subunit 103 and 
„ bottom P^e 446. Bottom Plate 446 may be made 

material, such as glass or sapphire. Pre, -bly ^pr ses 

una n-F p chemically and electrically 
. top Plate or =oat ln g 676 of a chemi Y ^^.^ 

resistant material, such as a glass, silica, 
carbon in substantial contact with a bottom plate 64S made 
« a highly heat conducting material, such as copper or 
aluminum. The heat conducting bottom plate * 
conventional water channels or air fins for efficient 
transfer with circulating water or air. 

Preferably, the bottom plate is in contact with 
20 temperature control subunit 108. This subumt enables 
prlc se control of the separation medium temperature and 
Lures its uniformity. The elimination of melons 
^ 1 medium temperature gradients is vital to good 
efectrophoretic resolution. The subunit comprises a. heat 
25 Tinf 652 for transferring heat. The heat sin, may contain 
25 sinx 65^ io efficient heat transfer 

water channels or °°*>**™ K number of Peltier-effect 
with circulating air or water^ A nu ^ 

thermoelectric heat "^"^ bottom plat e 446. 

thermal contact between heat sin, 652 heat 
30 These heat pumps are mounted for rapid bi separation 
transfer between the bottom plate, and thereby 

medium, and the heat ^ ^r^ZZ temperature input 
controller/power supply 1 n r P- ^ ^ ^ ^ 

from ^^^"t/^: is nalnta i„ed at a desired, 
" ^or^rClture, which may range from ambient 
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to 90° C. 
manner . 



The top plate can also be controlled in a similar 



Electrophoresis Module: MicroPGE 
5 An industry standard, photolithographic fabrication 

process is used to fabricate the migration lane grooves and 
laser groove in the microFGE. A photolithography mask with 
a „ etching pattern is constructed in a standard manner. Two 
patterns have been used. One has BO straight, parallel. 11 
x. cm ion,, 300 ,m wide grooves spaced on 1.125 mm centers he 
• other has, at the left, 80 straight, parallel, 2 cm long 50 
.m wide grooves spaced on 1.125 mm centers, in the mxddle an 
angular bend, and at the right, straight, approximately 4 cm 
long, 50 em wide grooves converging to 300 „» spacing. At 
15 the extreme right of both geometries is a 5 mm wide groove 
across the plate for the laser channel. Because the etch 
solution undercuts the etch mask during etching, the actual 
photolithographic groove width is less than the desired 

microFGE groove width. 

The photolithographic mask is used in a conventional 
etching process comprising the steps illustrated in F*.. 5A- 
5E. The substrate is a 12.7 cm x 12.7 cm glass 
polished to less than 1 m flatness on both sides. Both plate 
su ces are first prepared with a standard a^onia^drogen 
,s Peroxide RCA dean. As shown in Fig. ». a •«»«£*» ta 
< Si C> etch mask «. is deposited using ^ 
Chemical Vapor Deposition (PECVD, . The reactants CH 
SIB. with flow rates of 65 and 12 seem, respectively the 
power is 50 mW/cm'; and the substrate temperature 
30 A five minute deposition on both sides of the glass plate 
Laves a thin Sic layer. This is foliowed by a dehydration 
bake for good photoresist mask adhesion. 

Photoresist is then spin-coated on the front and a 
similar protective material is applied to the back of the 
35 guss plate. Ulustratively, the spin-coating apparatus is a 
£ ley\*13 operating at 4000 RPM. Next, the photoresist is 
exposed through the photolithographic mask to a total 
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exposure of 200 mJ/cm' at 405 n> and then developed. As 
shown in Fig. SC. the photoresist pattern is "anslerred , to 
the Sic etch mask using CF, reactive ion etching (RIE) at 40 
„T and 300 mW/o' (or 7 min. to for- a patterned etch mask 
5 170 over etching insures that no residual Sic remains in 
the" exposed areas. Remaining photoresist is not stripped, as 
it serves to plug holes and defects in the Sic etch mask. As 
shown in Fig. 5D, the plate is then etched by immersion in a 
buffered HF (6:!) etch solution. The solution is stirred. 
!0 The average etch rate is approximately 0.55 .m/mm. A total 
etch time of 150 minutes yields 75-85 ^ grooves. After 
etching, the plates are rinsed in a second bath of HF, then 
in H,o. The remaining resist and back-side protective 
material are stripped (Shipley 1165, and the Sic is removed 
IS by RIE in a similar process to that used in defining the 
patterned Sic etch mask 110. As a result, this process 
transfers the pattern in the photolithographic mask to a 
pattern of approximately semi-circular grooves 174 on 

substrate plate 166. 
20 in a preferred mode of the invention, Borofloat glass 

(Schott corporation, Hew York, is used as the substrate, and 
. the following masking and etching protocol is employed to 
generate grooves with smooth etch interfaces. The substrate 
is "ret cleaned using a standard RCA or piranha method known 
25 in the art. A thin layer (-100 Angstrom, of chromium » 
deposited on the substrate using high temperature 
evaporation. This chromium acts as an adhesion layer for a 
gold layer which is deposited on top. The gold layer is also 
formed by using high temperature evaporation, and has a 
30 h Less of around !000 Angstrom. „ext photores s is spun 
coated on the substrate and patterned with a series of lanes 
from a photomask using standard lithography methods . The 
pattern in the photoresist is then transferred into the go d 
and chromium layers using wet etching. Now, the etching of 
35 the lane pattern into the glass substrate begins. The 

etching is done using a solution of hydrofluoric acid (HF) in 
fater. Typically, 49 wt% HF is used in order to mmimise the 
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etch tiroes for deep channels- The glass etch rate with 49 
wt% HF is around 7 micron/min for channels up to 100 micron 
deep. The advantage of the Borofloat is the absence of 
insoluble reaction products formed during etching which lead 
5 to rough etching of the side walls and bottom of the 

channels. No insoluble etch products are formed, and very 
quick etching and extremely smooth channel side walls and 
bottoms are formed.. This smoothness is essential for the 
separation of biopolymer fragments because surface roughness 
10 can lead to abnormal mobility of DNA fragments during 

electrophoresis due to interactions of the fragments with the 
walls. 

In another version of the invention, it is desired to 
achieve etched migration lanes in long channels (> 12 

15 inches).. In this case, the typical lithographic tools for 
microelectronics fabrication cannot ' be used because they are 
limited to circular geometries up to around 12 inches. In 
order to process these larger substrates, different tools 
must be employed to deposit and pattern the photoresist for 

20 lane formation. For the photoresist deposition, three 

primary methods exist: dip coating, spray coating and spin 
coating. In dip coating, the large substrate is dipped into 
a photoresist solution and slowly withdrawn to leave a 
uniform layer of photoresist coating the surface. In spray 

25 coating, photoresist diluted in solvent is air sprayed onto 
the substrate to coat the surface. To do spin coating, one 
employs a machine capable of processing very large substrates 
such as those used to fabricate large flat panel displays. 
Exposing the lane pattern onto the photoresist can be done in 

30 two ways - with a very large photomask or with controlled 
exposure such as through a laser writing system or a 
controllable aperture on a light source. Once the 
photoresist has been exposed, all the process steps detailed 
above can be carried out to form lanes in the glass 

35 substrate. 

There are a number of variations on the above method, 
including both substrate and processing. If an insulating 
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layer on a metal platform is sufficiently thick, then the 
m icroFGE pattern may be etched directly into this layer wxth 
RIE, and the metal will remain flat (unpatterned) . A number 
of thin insulators can be used. A glass or quartz wafer can 
5 be bonded or epoxied to the substrate. Alternatively, a 
number of standard polymers used in the microf abricatxon 
industry include polymethylmethacrylate (PMMA) and polyimxde 
(PI) . These can be spin-coated onto flat, rigid heat- 
conducting substrates such as silicon, copper or alumxnum. 
10 RIE patterning of polymers is typically done with a very 

simple chemistry such as 0 2 , and etch rates can be very high. 
The etched polymer microFGE is coated with PECVD Si or SiO, to 
facilitate polymerization of the separation medium, 
optionally, a conducting substrate can be patterned directly 
15 followed by coating with a thin insulating layer. One can 
prepare standard microFGE plates etched in silicon simxlar to 
existing examples in glass, and coat them both with PECVD 
SiO and PECVD diamond-like-carbon (Diamonex, Inc., 
Pennsylvania) . The coatings will be in the range of 5-20 

20 microns thick. 

in an alternative embodiment of the invent xon, the 
photolithographic process can be used to generate a mold, 
against which multiple microFGE plates can be cast. The 
associated reduction in processing cost enables the microFGE 
25 plates to be disposable, easing the cleaning burden and cost 
associated with the DNA analysis process. 

in more detail, any of the following protocols can be 
used for generating a pattern of lanes in a polymeric 

substrate. , 
30 (!) Direct patterning: The first method is drrect 

patterning of lanes in a photopatternable poller W-^* 
a specific example being a photopatternable polyinude, OGC 
Probtaide 7020 (OCG Microelectronics, Hew Jersey) . The 
precursor polymer can be applied from solution usmg standard 
35 spin coating techniques and directly exposed with UV light 
using standard photolithographic tools and a lane geometry 
photons*. The exposed areas of the polyi-ide are partxally 
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cured by the UV light, and the remaining areas can be 
selectively removed with a suitable solvent. Finally, the 
polyimide is fully cured with heat to obtain a solid polymer. 
The top plate formed by the above (or another) approach must 

5 be bonded to a bottom plate to enclose and seal the channels. 
A thin polymer layer is spin coated on a glass bottom plate, 
and cured after contacting the top substrate. In this 
manner, the polymer film becomes an adhesive fusing the top 
and bottom. Alternatively, a bottom plate with a thin 

10 elastomeric layer can be reversibly sealed to the top plate 
with pressure. 

(2) In-Situ pattern formation: The second protocol is 
in-situ curing of channels in a polymer layer between two 
glass plates This begins with a mixture of reactive monomers 

15 and oligomers in the liquid state (e.g. methyl methacrylate 
monomer and oligomer) . This mixture is introduced between 
two glass plates spaced by the desired channel height. A 
photomask is then used to expose selected areas of the liquid 
to UV light to define the lanes. The areas exposed to the UV 

20 light react to form solid polymer walls defining the lanes. 
The unreacted liquid in the channels can then be pumped out 
to leave the final lane geometry. In this method, both the 
top and bottom glass surfaces can be coated with the polymer 
prior to channel formation to provide a uniform channel 

25 surface, 

(3) Replication: The third protocol involves replication of 
the surface features of a microfabricated master in plastic 
using molding or casting techniques. Silicon, silica, metal 
or polymeric masters are fabricated with a negative of the 

30 desired pattern. A polymer substrate is solidified while an 
contact with this master to form the channels. Both molding 
(solidification due to cooling) and casting (solidification 
due to polymerization and crosslinking) can be used. Casting 
can be done at room temperature and pressure and is gentler 

35 on the master than molding. After forming the top plate, the 
bottom plate is bonded by the same technique described above. 
The mastering concept of the replication protocol can be used 
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to dramatically reduce the cost of microf abricated lane 
substrates when compared to etching the lanes in a glass 
substrate, enabling the use of disposable microFGE plates. 
Electrophoresis Module: microFGE Shunting Capability 
5 Micro-fabrication techniques permit the microFGE to be 

optionally configured with the capability to automatically 
collect selected biopolymer fragment samples. Samples 
traveling down a sample migration lane are detected in the 
laser illumination and detection region and analyzed by the 

10 computer implemented analysis method. If a particular sample 
is of interest, the computer can command that it be shunted 
into an adjacent , empty collection lane. After the analysis 
run is complete, the shunted sample can be further analyzed 
in or eluted from the collection lane. 

15 Fig. 7 illustrates two adjacent lanes in the microFGE 

configured for this biopolymer fragment shunting capability. 
Adjacent migration lanes 7 62 and 764 are bounded at one end 
by end piece 458 and at the other end by driving electrodes 
117. Downstream of the laser illumination region is a 

20 shunting cross-lane connector 784 with shunting electrodes 
118 placed in the walls of the adjacent lanes. The shunting 
electrodes are connected to and controlled by 
control ler/power supply 114. The cross-lane connector is 
fabricated by altering the photolithography mask to .define 

25 the additional etching of the connector. During an analysis 
run, it contains separation medium. The shunting electrodes 
are placed by a conventional metallic deposition process. 

During an analysis run, biopolymer fragments 780 migrate 
down the sample lane 764. The fluorescent emission of each 

30 fragment is detected as it crosses laser beam 113 and is 
analyzed by the analysis system. If a biopolymer fragment 
782 is determined to be of interest, it is shunted from its 
sample lane to adjacent collection lane 762 by applying a 
voltage across shunting electrodes 118 when the sample is 

35 adjacent to the cross-lane connector. Sufficient voltage is 
applied for a sufficient duration to cause migration into the 
collection lane. The computer commands the controller /power 
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n-»„o »+ the correct time for the correct 
supply to apply voltage at the cor re 

duration. 

Fragment Generation and Loading: 
Liquid and Solid Phase Methods 

5 The instrument of this invention is adaptable to a 

number of generation and loading methods for the biopolymer 
fragment samples. Liquid phase loading is conventional. 
This merely requires transferring liquid samples containing 
biopolymer fragments to sample wells. This is usually a 
10 sequential, slow, error prone manual step. Various 

mechanical and fluid devices may improve speed and error 
rate. However, it would be advantageous to load multiple 
samples in one operation in parallel. .Even more advantageous 
would be the capability to generate fragment samples from raw 
" biopolymers and to load them in parallel for analysis. 

Parallel DNA fragment sample loading can be accomplished 
by solid phase loading, which is also conventional, although 
recent, technology. It is illustrated in Figs. 10A -1 0D 
See Lagerkvist, et. al. (1994). As shown in Figs. 10A and 
20 10 B, a soVid-phase loading comb 1006 has 48 or more teeth 
10 07, advantageously at least 96 teeth. The tips of the 
teeth are coated with streptavidin . The comb and teeth are 
designed so that the center-to-center tooth spacing matches 
the center-to-center spacing of the loading well of the 
" microFGE and all the loading comb teeth can all be inserted 
into all the loading wells simultaneously. In a preferred 
roe thod shown in Fig- 4, the teeth of the comb match the 
spacing of notches 461 machined in comb pressure piece 456 
and form robust, mechanically strong, sample wells. 

The comb is loaded with biotinylated PGR product samples 
generated from biotinylated PCH primers. The biotinylated 
lam les are bound to streptavidin coated teeth 1007 by the 
strong streptavidin/biotin attraction. ™ 
100/ 000 copies of a single DNA sample bind to each tooth 
35 standard Sanger sequencing reactions are then perform* on 
the samples attached to each tooth of the comb to generate 
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DNA fragments 1010 shown in Fig. IOC. The geometry of the 
PCR and Sanger reactors is advantageously adapted to the comb 
spacing, so that the comb may be successively dipped in 
reactors with the appropriate reagents for performing these 
5 reactions on all the samples in parallel. The loaded comb 
with attached fragments 10 10 is then dipped in the loading 
wells and as shown in Fig. 10D the fragments are released 
from the original sample templates by denaturation, using for 
example heat and formamide. 

10 

Fragment Generation and Loading: MicroFRA 

Both the concurrent generation and loading problems are 
solved by the microFRA 110. The microFRA is an array of 
chemical micro-reactors for concurrent generation of 
15 biopolymer fragment samples for analysis. It is particularly 
adapted to DNA sequencing. Using any number of single tube 
(i.e., no separation required) DNA analysis methods, a 
microFRA can process DNA for analysis directly from minute, 
unpurified samples. This capability eliminates many manual 
20 steps, improving analysis speed and reducing errors. 

Integrated with the microFGE, a single instrument can perform 
high-capacity DNA analysis directly from raw DNA samples. 

The microFRA comprises micro-reactors and capillary 
passages with micro-valves, which control liquid flow in the 
25 capillary passages. The construction and use of these 

elements is illustrated in Figs. 8 and 9 for the case of a 
capillary evaporative bubble valve. Fig. 8 illustrates a 
section of two reactors for one version of the microFRA. 
Typically, there would be as many reactors as sample 
30 migration lanes in the electrophoresis module. MicroFRA 
structural components include four silicon wafers 886a-d 
approximately 0.25 mm thick, reactor housing plate 888, 
preferably constructed from glass and approximately 3 mm 
thick. Reaction chambers 898 are defined in the structure 
35 along with inlet and outlet capillary passages 885, 884. 
Heating elements and thermocouples, not illustrated, can be 
incorporated in the walls of reaction chambers 898 for 
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controlling reaction temperatures. Initial biopolymer 
samples and reagents are introduced into the reaction 
chambers through minute sample inlets 802. Additional 
reagents needed during fragment generation are introduced 
5 through reagent inlets 800 and capillary inlet passages 885. 
Biopolymer fragment samples are ejected into the 
electrophoresis module through outlet capillary passages 884 
and fragment outlets 890. 

Capillary flow in passages 884, 885 is controlled by 
10 several micro-bubble valves 894, which comprise evaporative 
heating elements 892 and associated electrical leads 896. 
Fig. 8 shows one valved inlet path and one valved outlet path 
connected to each reactor. Other versions can be constructed 
with multiple inlets and outlets to each reactor (such as may 
15 be necessary for ethanol precipitation and washing to remove 
salts, followed by formamide resuspension) . 

Each reaction chamber 898 is a truncated, conical shaped 
hole in the reactor housing plate 888 of depth approximately 
3 mm, width approximately 1 mm, and volume approximately 1-5 
20 Ml- Construction of the microFRA involves etching in top 
silicon wafer 886a one semicircular capillary inlet passage 
885 per reactor with diameter from 5 - 100 /im, preferably 
approximately 10 (in. A circular hole, with diameter 
approximately 1 mm, is formed in alignment with each, reaction 
25 chamber. The capillary inlet passages terminate in the sides 
of these holes. 

In second silicon wafer 886b, standard deposition 
techniques are used to deposit micro-heating elements 892, 
electrical leads 896 to the heating elements, and an 
30 electrically insulating layer protecting these components. 
Each capillary inlet passage is contacted by one micro- 
heating element. The electrical leads are brought to the 
edges of the wafer for making contact with external leads 
from the controller /power supply. The second wafer also has 
35 1 mm holes aligned with those of first wafer and the reaction 
chambers. The two holes define minute sample inlet 802 into 
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each reactor. The two wafers are bonded together and to 
reactor housing plate 888 as shown. 

The reactor housing plate is bonded to third silicon 
wafer 886c, which is etched with outlet capillary passages 
5 similar to the inlet capillary passages in wafer 886a. Each 
outlet capillary passage terminates in vertical passage 899 
which communicates with the truncated base of one reactor. 
Fourth wafer 886d, on which are deposited micro heating 
elements, associated electrical leads, and an insulating 

10 layer, similar to those of wafer 886b, is bonded to wafer 
886c. Each capillary outlet passage is contacted by one 
micro-heating element. When the microFRA is positioned, 
attached, and sealed at the left of the electrophoresis 
module, as in Fig. 1, the outlet passages communicate with 

15 the separation medium at the heads of migration lanes. If a 
microFGE is used, the capillary outlet passages in wafer 886c 
could converge so that outlet ports 890 would match microFGE 
lanes 107. 

Preferably, a pressure supply (not shown) is connected 
20 to reagent inlet 800 to pressure the capillary inlet passages 
for introducing reagents during a reaction sequence. 
Likewise minute sample inlet 802 into the reaction chambers 
can be connected to a pressure supply for forcing reaction 
products through the capillary outlet passages to the 
25 biopolymer fragment outlets 890. 

Fragment Generation and Loading: microFRA Bubble Valve 

The evaporative bubble micro-valves 894 are important to 
the functioning of this version of the microFRA. They 
30 provide on/off control of fluid flow in the capillary 

passages. Alternative micro-actuators of similar function, 
remote control, and ease of fabrication could be used. [See 
Lin et, al. Microbubble Powered Actuator, Transducers 1041 
(1991).] 

35 Figs. 9A and 9B illustrate the construction and 

operation of an illustrative bubble micro-valve 894. The 
valve comprises two wafers 985, 986 which are joined together 
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after processing to form the structure shown in Figs. 9A and 
9B. A semicircular capillary passage 988 is etched in wafer 

985. A resistive heating element 992 is deposited on wafer 

986, and a protective layer 993 is deposited over the heating 
5 element to prevent chemical or electrical contact with fluid 

in the capillary* Electrical leads, not shown, are deposited 
to provide for external contact. Current to the heating 
element is supplied . through the external contacts and 
deposited leads from the controller /power supply. Resistive 

10 heating element 992, the electrical leads and protective 
layer 993 correspond to micro-heating elements 892, 
electrical leads 896 and the electrically insulting layer of 
Fig. 8 and the accompanying description. 

Micro-bubble 987 obstructs the flow of fluid in this 

15 passage. It is generated by evaporating fluid in the passage 
with heat from resistive heating element. Cessation of the 
heating allows the vapor to cool and condense, collapsing the 
bubble, and removing the obstruction to fluid flow. Thereby 
an off/ on valve is created and controlled by current in the 

2 0 evaporative heating element. 

Surface tensions at the fluid/ gas interfaces allow the 
bubble to be maintained in position despite a pressure 
difference across the bubble. The allowable pressure 
difference is determined by Laplace's equation 

25 P =p + i£ (4) 

r fluid r vapor ^ 



where P fluid is the pressure difference in the fluid in the 
Q capillary, P vapor is the saturation pressure, s is surface 

tension, and R is the radius of the capillary passage. For a 
pressure difference between 1-5 and 1.0 atmospheres across 
the bubble, the capillary diameter must be less than 
approximately 10 pm. 
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Fragment Generation and Loading: DNA sequencing 
using microFRA and dUTP digestion 

By using dUTP rich PCR primers, the microFRA can 
completely and automatically process DNA samples from crude 
DNA to labeled DNA fragments ready for separation, and 
eventually finished DNA sequence. Using such primers, DNA 
sequencing fragments can be generated simply by the 
sequential addition of reagents. An intermediate separation 
step, not easily possible in a microFRA, to remove unreacted 
PCR primers is not needed. The microFRA in combination with 
this technique eliminates all manual DNA sequencing steps. 
Although adapted for a microFRA, this method of making DNA 
sequencing fragments can be carried out in other reaction 
configurations. 

The dUTP rich outer amplification primers are designed 
to prime to known vector sequences, are preferably 17-24 
nucleotides long, and are synthesized with dUTP in place of 
dTTP. Preferably, the dUTPs are no more than 6 base pairs 
apart, with 4-10 *dUTPs per primer molecule. The melting 
temperature of these primers is preferably between 54 *C and 
72*C. 

The steps of using these primers are illustrated in Fig. 

11. First, at step 1101 10,000 to 100,000 molecules of crude 

unpurif ied DNA are loaded into the microFRA reaction chambers 

through the minute sample inlets. Subsequent reagents can be 

added either through these inlets or the capillary inlet 

passages as convenient. No prior DNA preparation is needed. ■ 

Advantageously, a sterile tip can be used to transfer 

colonies or other DNA sources containing single or doubly 

stranded DNA vector with a clonal insert directly into the 
30 ... , 

reaction vessel. Second, at step 1102 amplification reagents 
are loaded in the reaction chambers. Amplification reagents 
include: 50-100 picomoles/100 Ml of dUTP containing primer; 
75-100 Mmolar each dATP, dCTP, dGTP and dTTP; and other 
conventional reagents such as DNA polymerase, BSA, Ficol, and 

35 

dye. 



20 



25 
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At step 1114, twenty to forty amplification cycles are 
performed. Each cycle comprises the steps of bringing the 
reaction mixture to 94'C for 5-15 sees., then to 52'C for 5 
to 15 sees., and then to 72*C for 15-30 sees. 
5 At step 1116 the dUTP rich amplification primers are 

removed with UDG, uracil DNA glycosylase, from the . 
Escherichia coli ung gene. UDG removes uracil residues from 
both single and double stranded DNA present in the reaction 
mixture. Loss of the uracil residue prevents DNA base 
10 pairing and exposes the DNA sugar-phosphodiester backbone to 
hydrolysis into fragments containing 5' and 3' phosphate 
termini. The resulting short fragments are no longer able to 
hybridize to DNA and cannot form a primer for further chain 
elongation in the following sequencing reactions step. 
15 Next, the reaction mixture is prepared for the 

sequencing reactions. The mixture is diluted 1 to 10 and a 
single sequencing primer, buffer and fluorescent dye labeled 
ddNTPs (step 1100) are added in a conventional manner. 
Fifteen to thirty sequencing cycles are then performed, each 
20 cycle comprising the sequential temperature steps 96'C for 5- 
15 sees 50-60-C for 1 second, and extension at 60 C for 4 
min. (step 1118). The DNA fragments are next ejected through 
the capillary outlet passages into the eleetrophoretie 
separation subsystem (step 1120) . Eleetrophoretie separation 
25 of the DNA fragments then occurs (step 1122) . 

Fragment Generation and Loading: Expression Analysis 

While our system has been designed to be flexible 
regarding biochemical design, we describe a single exemplary 

30 protocol. Recent refinements in molecular biology methods to 
characterize differences in gene expression makes this 
possible (Liang et al. , 1991). The steps are as follows: (i) 
mRNA preparation from sample of interest; (ii) first strand 
cDNA synthesis; (iii) "fingerprinting" by arbitrary PGR of 

35 individual samples; and (iv) electrophoresis and fluorescent 
identification of differences in a single lane. 
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The high quality of the mRNA is assured by immediate 
extraction of the mRNA from fresh tissue. The mRNA is 
extracted from the tissue following a protocol based on the 
FastTrack mRNA isolation kit (Invitrogen Corp., San Diego, 
5 CA) , which allows transition to purified PolyA mRNA in under 
2 hours. 

Complementary cDNAs are constructed by using four 
specific polyT primers; d(T)»VA, d(T) n VC, d(T) u VG, d(T) u VT 
(V= A,C or G) to prime PolyA mRNA in four separate reverse 
10 transcriptase reactions (lOng/each) . This insures that the 
initial PolyA mRNA pool is broken into four roughly equal 
portions. By constructing primers with two specific bases at 
the 3' end the pool could be further divided. These methods 
utilize extremely small quantities of mRNA (10 ng per 
15 reaction) . Reaction conditions are designed to minimize any 
sequence specific bias and to enhance the representation of 
individual species. 

After sample preparation (mRNA isolation and first 
strand cDNA synthesis) , DNA fingerprinting of the individual 
20 samples (arbitrarily primed amplification) is conducted using 
a cycle method based on the use of a thermostable polymerase 
(PCR) . A series of reaction premixes, each containing a 
specific labeled oligonucleotide primer (one of the four 
polyT primers with a specific dye attached) , a single 
25 arbitrary primer, nucleoside triphosphates, and Taq 

polymerase are added to the first strand cDNA template in an 
appropriate buffer. Thermal cycling follows, which generates 
the labeled double stranded family of products (the actual 
"fingerprint" consisting of 500 to 1000 fragments up to 2kb 
30 in length per reaction) . 

Primers are designed subject to two major constraints. 
The first is to insure an even distribution of priming at a 
specific frequency (determining the number of bands) . The 
second is to insure specificity of the arbitrary primer 
35 (insuring reproducibility). In addition, primers are 

designed by searching against a human sequence database to 
insure that they prime at an appropriate frequency (one which 
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will allow for the generation ot the most detailed 
fingerprint that can be characterized within the limitations 
o our nstrument) . arbitrary priors can be designed using 
led bases <A, ,. c or d, at the 5- end to allow larger 
5 primers to be made, while controlling both melting 

temperature (all combinations have same melting temperature, 
TspecincLy. and with a fixed 3- end .conveniently ha™, 

- +•<-> «?need up later cloning), 

a restriction enzyme site to speea up 

To facilitate the direct identif icataon of the nature 
10 the coding region of the differentially expressed genes, an 
Arbitrary prilr strategy which does not utilize the co^aon 
folyT pri,er is used. In this case two arbitrary P-ers 
one of which is labeled) are used for the application 



step. 

15 



Analysis Computer and Signal Analysis 

,+.^ ni9 a conventional computer 
Analysis computer 112 is a conv 
including a programmable processor and both short an d lt) „g 
term memory. For example, an Inte! 80486 or higher 
20 oos/Kinaows compatible computer is adequate An Intel 8 0«. 
33 mHz with 16 MB of «» and 500 MB hard drive „ exemplary 
tor both control and analysis. Its control functions 
required during an analysis run have been P™=^ 
described. Additionally, it performs the signal an lysis 
„ which determines biopolymer sample 2 ™ 

record of the separated fragment samples. The analysis 
record oi p , ever al steps sequentially 

method and apparatus comprises sever J> .„ 
»vacuted bv the processor, each step using inpu 
executed or' f memory. The data 

memory and producing output also store .„ rtronic 
, -„„ utilize either magnetic or electronic 
30 storage memory can utilize eitn * 

memory as appropriate for storing intermediate ^ 
between steps. If the microFGE's sample shunting capab lllty 
is used, data analysis must be done during an 
identify particular samples of interest to shunt, otherwise, 
„ analysis can be done at any ^ ^ and 

The version of the analysis meun 
illustrated is directed to determining a D„A base sequence 
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from electrophoretic separation of Sanger sequencing reaction 
fragments. In this application, four fluorescent dye labels 
chosen to have distinguishable emission peaks must be 
recognized. However, the techniques can be applied to 
5 analyses of other types of biopolymers. In particular, 
fragments from more than one sequencing reaction can be 
loaded into a single migration lane, and distinguished 
through the use of more than four fluorescent dye labels, 
such as five or eight or more. The signals associated with 
10 each of the reactions can be distinguished and processed 
independently whereby, for example, a single migration lane 
can be made to serve the function of two. 

The analysis method must be adapted to the microFGE 
electrophoretic module and its running conditions. Because 
15 small migration lanes carry small fragment samples, the 
microFGE generates lower intensity signals with a lower 
signal to noise ratio than conventional electrophoretic 
modules. Also, the microFGE 's short lanes and high voltages 
result in more rapid presentation of. fragment samples and 
20 less clearly defined fluorescence peaks. Further, detailed 
variations in running conditions due to gel characteristics, 
voltage used, sample analyzed, and so forth, require that the 
method be trainable to these variations. These and other 
characteristics of the microFGE require the uniquely, adapted 
25 analysis described below in order to achieve better than 99% 
recognition accuracy. 

Fig. 12 is a high level flow chart of the analysis. Raw 
signals from each detector element at each observation time 
are gathered by transmission imaging spectrograph 100 (Fig. 
30 1) and stored in memory at step 1229. The signal intensity 
from adjacent detector elements of CCD array 228 may be 
grouped or summed, called "binning", into sets, called 
"bins", and the cumulated value of the set reported. Binning 
done on the CCD array is controlled by software supplied with 
35 this component and is dynamically adjustable. Further 
binning is done by preprocess step 1230. Preferably, 256 
spatial bins each spanning four detector elements are defined 
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(the detector having 1024 total elements along the spatial 
axis) Each migration lane is assigned to one spatial bin at 
each observation time, the spatial bin associated to each 
migration lane being substantially the same for all 
5 observation times throughout a run, the spectrograph thus 
allowing simultaneous detection of up to 256 lanes. In the 
preferred embodiment of the invention, each spatial bin is 
subdivided into four spectral intensity bins, each spanning 
40 detector elements (the detector having 256 total elements 
10 along the spectral axis) centered on the emission maximum of 
the four dyes used to label the four ddNTP bases. Obviously, 
additional spectral bins can be accommodated by the 256 CCD 
elements along the spectral axis; and by reducing the number 
of elements per spectral bin and/or using larger arrays to 
15 increase the total number of elements along the spectral 

axis, the number of spectral bins can readily be increased to 
about 16 or so, permitting the simultaneous detection of as 
many different fluorescence signals from different dye 
labels. The binned signals are further preprocessed at step 
20 1230 by removing recognizable noise and outputting separately 
into memory the spectral intensity data for each migration 
lane for each observation time. 

Basecalling step 1232 compares the spectral intensity 
data for each migration lane for each observation time 
25 against an event prototype file. 

Event prototype file is generated by training processing 
at step 1234. For example, a DNA sample whose sequence is 
known with very high confidence is analyzed in the 
electrophoretic module by collecting the fluorescence from 
30 each of the four fragment labels and generating spectral 

intensity data that is stored in memory. In particular, the 
preprocessed spectral intensity sequences from the migration 
lane with the known sample are tagged at step 1235 with the 
known base events - A, C, T, 6, or the null event X - at the 
35 observation times at which the known bases generate signals. 
This may be done manually or automatically. Then, for all 
events of each of the different base types, the local time 
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behavior of the signal is averaged, or clustered at step 1236 
to generate a prototype intensity signal trace for each 
event. The prototypes are stored in memory at step 1237 as 
the event prototype file. 
5 In the preferred embodiment of the invention, event 

prototypes are determined for pairs of recognition events. 
Since there are four base events and the null event, there 
are 16 (=4x4) different pairs of non-null events and 
therefore 16 different prototype intensity signal traces. 
10 Other choices of events are possible with this method. 

The basecalling step compares the time series of the 
preprocessed signals from the spectral intensity bins in a 
spatial lane 107 with prototype intensity series. If the 
observed series is judged by some measure to be close to a 
IS prototype series, the basecalling step recognizes the base 
known to be associated with that prototype series. The 
recognized base identities are output to memory at step 1242 
as the nucleotide sequence for that lane 107. This sequence 
can be finally output at step 1243 or further postprocessed 
20 at step 1244. in addition, the measure by which the observed 
series is judged to be close to the prototype series serves 
as an indication of the confidence which should be assigned 
to the accuracy of the basecall. This can be output for 
every base, along with the base sequence, and can further be 
25 output for every possible prototype at every basecall. In 
the case that multiple samples are analyzed using a single 
migration lane, it is likely that the samples will be 
related, for example, the forward and reverse sequences of a 
2kb clone can be analyzed simultaneously. In this case, 
30 information linking the two samples (in the example: the fact 
that they are at the extremes of a 2kb clone) is also output. 

in postprocessing, if partial sequence information for 
the DNA sample is known a priori, for example sequences of 
vector DNA, step 1238 recognizes and trims them from the 
35 output sequence. Subsequently a Monte Carlo proofreading 
step 1240 is executed. Proofreading involves checking the 
global consistency between the basecalling output' and the 
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original unprocessed data. Special Knowledge about the DM* 
being analyzed, for example that the DNA codes for a protein, 
can also be supplied as at step 1241. 

in genomic scale sequencing, it is desired to assemble 
5 and align the base sequence of many fragments into the base 
sequence of an entire genome. The closeness to prototypes 
output at step 1243 can be used in dynamic programming 
(minimum edit distance) alignment programs which are Known in 
the art, in order to increase the accuracy of the alignment. 
1, Bonfield, J.K., et al., "The Application of Numerical 
Estimates of Base calling Accuracy to DNA sequencing 
Projects, Nucleic Acids Hes., 23, 2406-1410 (IMS), which is 
incorporated herein by reference. Additionally, information 
relating multiple sampies analyzed in a single migration lane 
1S can also be used to enhance the assembly of large contigs of 
Known sequence, by providing links (in the example above-- 
forward and reverse strands separated by 2 Kb) which can be 
used to join isolated contigs. Even if the analysis o the 
second sample is not complete (for example only a single base 
2 , termination reaction is carried out in the reverse direction, 
end only a fifth fluorescent dye is used) , the information 
output at step 1243 can still be used to advantage in 
large-scale contig assembly. 

Data Analysis Method: Preprocessing Step . 
Fig 13 is a detailed flow chart of preprocessing step 
1230 The input from transmission imaging spectrograph 100 
is a ' concatenation of signals from consecutive exposures of 
the CCD camera. Each exposure produces binary data 
representing charge intensities at individual pixels (and 
30 accumulated intensities in on-chip defined bins). The Pixels 
are grouped into spatial and spectral bins « 
described, each spatial bin having four assorted spectral 
bins. All further processing is done on these banned 
signals. First the spatial bin assigned to each igration 
35 lane is identified (step 1440) and a file is created in 
memory for each lane (step 1442). For each migratxon lane, 
the operator chooses one of the 256 spatial bins to best 



25 

1230. 
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represent the fluorescence emitted by samples in that lane. 
All remaining processing then continues independently for 
each lane. 

Next, for each lane, recognizable noise is removed by 
5 high and low pass filtering. Spikes, which are one 
observation time anomalies, are removed (step 1444) by 
replacing a signal value in any spectral bin at any 
observation time with an average of the signal values in the 
same spectral bin at the preceding and succeeding observation 
10 times if the value differs drastically from that average. 
Next, the background signal is identified and subtracted 
(step 1446} . For each observation time and spectral bin, a 
background value is computed and subtracted. The background 
is the best linear fit to the absolute signal minima taken 
15 from four windows near the observation time in that spectral 
bin. The first window contains enough future time points to 
include preferably about 10 base recognition events (or 
peaks) ; the second window enough for 20 future events; the 
other windows include 10 and 20 past events. The filtered 
20 signals are stored in memory at step 1447. 

Next, for each observation time, a linear conversion is 
made from fluorescence intensity signals to signals 
representative of dye concentration (step 1450) . This is 
done by multiplying the 4 spectral bin values in the data 
25 stored at step 1447 by a 4X4 conversion matrix to obtain 4 
new values representative of the four dye concentrations. 
This matrix is determined at step 1448 prior to the 
conversion in the following adaptive manner. The signals 
stored at step 1447 are scanned. For a range of observation 
30 times from the middle of the analysis run, preferably the 

middle 1/2, during which range each signal peak is influenced 
by a single base event, the three highest peak values are 
found in each spectral bin. This is done by finding a first 
maximum, excluding a window around that maximum, then 
35 similarly finding a second and third maximum. These peaks 
are taken to correspond to existence of a single dye in the 
detection region. (Validity of the assumption is tested by 
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comparing the shapes of the dye emission curves with the 
ratios of signal intensities in the spectral bins.) For each 
of the three highest peaks of each of the four dyes, the 
values in the four spectral bins are obtained. For each bin 
5 and each dye the three values are averaged to obtain a set of 
four numbers that represents the ideal fluorescence signature 
of that dye. The four signatures are assembled as the rows 
of a 4X4 matrix. For example, an illustrative signature 





measured average fluorescence int€ 
level in bins associated with: 
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Nucleotide 
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800 


100 


50 


100 
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300 


700 
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200 


900 


200 
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50 


50 


300 


800 



10 



15 



20 



The inverse of this matrix is the desired linear conversion 
factor input to step 1450. 

Alternatively, a matrix can be recalled from memory 
which has already been generated on the basis of knpwledge of 
25 the emission spectra of the fluorescent dyes. Instrument 
spectral alignment variability can be accomodated by choosing 
the best of a collection of several such matrices stored in 
memory. The choice of the best matrix is made by testing the 
extent to which negative values are generated as the output 
30 dye intensities, with the optimum matrix having the minimum 
accumulation of negative dye intensities. 

Alternatively, more than four dyes can be employed and a 
corresponding number of binning regions can be used to 
accumulate the fluorescence signals from such dyes. In the 
35 case that the number of binning regions exceeds the number of 
dyes, a best-fit linear conversion or pseudo- inverse can be 
found to determine the dye concentrations. 
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In the case of multiple samples, such as the forward and 
reverse reactions, being analyzed in a single migration lane, 
an analogous 8x8 matrix analysis replaces the 4x4 analysis 
described above. 



An illustrative signature matrix in this case might be: 
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Finally at step 1452, the signal values at consecutive 
observation times are added into one new observation and 
output to memory. Consecutive observations, or larger 
adjacent groups of observations, are additively comfiined so 
25 that approximately five resultant observation times occur 
between consecutive base recognition events. 

Alternatively, this renormalization of the time sampling 
interval can include interpolation, and can be carried out 
independently for each of the different fluorescent dyes in 
30 order to accomodate the different influence that the dyes 
themselves have on the mobility of the DNA fragments. 

Data Analysis Method: Basecalling Step 
Basecalling (step 1232) recognizes the event of a 
labeled fragment in a migration lane passing through the 
35 laser beam 113 and discriminates the event into one of a set 
of classes according to the dye label carried by the 

) 
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fragment. Four initial choices must be made: a configuration 
space to represent recognition events; a mapping of signal 
traces into paths in this configuration space; the location 
of events in the configuration space; and a criterion for 
5 determining when the configuration space path represents an 
event. First, this method is schematically illustrated for a 
simple case, then the preferred version is described. 

Figs. 14A and 14B schematically illustrate a simple, 
exemplary case. In Fig. 14A are two signal traces: one 1328 
10 having a single, tall peak 1326; and a second 1332 having a 
single, broad, low peak 1330. Trace 1328 represents an 
event; the trace 1332 represents only noise. 

Fig. 14B illustrates the mapping of the signal values at 
the preceding time point, t-1, at the current time point, t, 
15 and at the succeeding time point, t+1, into single 3- 
dimensional points (t-1, t, t+1) in a 3-dimensional 
configuration with these three values for coordinates. Thus 
each point in configuration space represents a triplet of 
three consecutive signal intensities. Next, based on 
20 knowledge of prior event characteristics, an event prototype 
characteristic of detection of passage of a particular dye 
label fragment through the laser beam is assumed to be 
located at 1322. For event recognition, the configuration 
space path must pass within sphere 1340 about the event 
25 prototype. 

Signal trace 1328 maps to loop 1324 in configuration 
space, beginning and ending at the origin and passing, in the 
example shown, within the recognition sphere. It therefore 
represents an event. Signal trace 1332 illustratively maps 
30 to loop 1342 in configuration space, which does not pass 
within the sphere. It is therefore not recognized as an 
event. In this manner, events are recognized and 
discriminated. 



35 
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Basecalling Step: Embodiment 

As indicated in the discussion of Fig- 12, event 
prototypes are determined for pairs of recognition events, 
there being sixteen such pairs corresponding to the sixteen 
5 doublets of DNA bases ~ CA, CC, CG. CT . . . TA, TC, TT, TO. 
The event recognition criterion is that a local minimum 
occurs in the distance between the signal trace as mapped 
into configuration space and one prototype event. Starting 
from the previous base recognition event, and stepping 
10 forward observation by observation, the configuration space 
distance to each of the 16 prototype events is computed at 
each observation time. The event identity with the smallest 
distance and that distance value are saved. If the closest 
prototypes at the current and adjacent observations are the 
IS same, and if the current distance to that closest prototype 
is less than the distances at adjacent observations, then . 
that prototype is recognized. As indicated above, there are 
approximately five observation times between successive base 
recognition events. Any time a prototype is recongmzed the 
20 distance to each of the 16 prototype events can be stored for 
future analysis or output. 

in essence the basecalling step measures at a series of 
observation times following a base recognition event the 
correlation between the dye concentration values derived from 
25 four signals received at the four spectral bins and the 
corresponding dye concentration values associated with the 
sixteen doublets of DNA bases that have previously been 
stored in the prototype file. Beginning with the first 
observation time following a base recognition event the 
30 measurement is made by calculating a weighted sum of the 
squares of the differences between five successive time 
simples of the dye concentration values derived from the four 
received signals and five successive time samples of the 
corresponding signals of each of the sixteen doublets, 
35 repeating the calculation for the next set of five successive 
time samples of dye concentration values displaced by one 
observation time from the previous calculation and the same 
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set of five samples of each of the sixteen doublets, and so 
on. The distance at the central sample point is weighted 
highest (2.0); the distances at the previous and succeeding 
points are weighted intermediately (1.5); and the remaining 
5 distances are not weighted (1.0). 

The general form of the equation for the weighted sum of 
the squares is 
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where the first term in each squared expression is the sample 
of the received signal and the second term is the sample of 

20 the stored prototype signal, the letters T, A, G, C identify 
the relevant dye concentration and the subscript indicates 
the sample number and its order in time. 

The value of the above equation is calculated for each 
of the sixteen doublets for each of the observation times 

25 until a closest prototype is located. Alternatively, 
however, it is not necessary to make the calculation for 
twelve of the sixteen doublets because the identity of the 
first nucleotide in the doublet is already known from the 
immediately previous basecalling step. 

30 In addition, each calculated value of the sum of the 

squares is weighted by a factor that increases with the time 
between the actual observation time and the expected time of 
the next base recognition event. A match is identified at 
the observation time where the weighted sum of squares is 

35 determined to be lowest. 

Further details of the base calling step are as follows: 
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The configuration space is a composite of a 20-dimensional 
signal-intensity subspace and a l-dimensional time-from- 
event-recognition subspace. signal traces map into the 
signal-intensity subspace by assigning for the 20 
5 coordinates, sequentially, the four spectral bin values at 
each of the five observation times - the twice previous time, 
t-2, the previous time, t-l, the current time, t, the . 
succeeding time, t+1, and the twice succeeding time, t+2. 
This maps adjacent portions of the signal trace to a 20- 
10 dimensional vector in this subspace at the observation time, 
t. In the l-dimensional time-from-event-recognition 
subspace, the coordinate is assigned to the time difference 
between the current time and the time at the last recognition 
event . 

15 The distance in the configuration space is the product 

of distances computed separately in the two subspaces. In 
the 20 -dimensional signal-intensity subspace, the distance is 
a weighted sum of the squares of the distances (sum of 
squares of signal coordinate differences) between the signal 

20 and a prototype point at the five time points. The distance 
in the l-dimensional time-from-event-recognition subspace is 
the sum of 1-0 and the weighted (0.3) square of the 
difference between the coordinate value in that subspace and 
the average time between basecalls. 

25 This precise calculation is illustrated by the following 

C++ code: 
class datapoint { 

double c, t, a, g; /* normalized fluorescence values */ 
int tag; /* call for this data point */ 

30 }; 



class vector { 

datapoint twoprev; /* 

datapoint prev; /* 

35 datapoint curr; /* 

datapoint next; /* 

datapoint twonext; /* 



data point at current time - 2 */ 
data point at previous time */ 
data point at current time */ 
data point at next time */ 
data point at current time + 2 */ 
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10 



15 



20 



25 



30 



vec->twoprev . c - average . twopr ev . c ) , 2 ) 

vec->twoprev.a - average. twoprev. a) , 2) 

vec->twoprev.g - average. twoprev, g) , 2) 

vec->twoprev.t - average. twoprev. t) , 2) 



int lastcall; 
double timetocall; 
int tag; 

}; 

dist = ( 
( 
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/* time since last base call */ 

/* call for this vector */ 
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Prototype events for each of the sixteen doublets of DNA 
bases — CA,CC,CG, CT, . . . ,TA,TC,TT,TG are stored in the 
prototype file at step 1237. This file is mapped, into the 
20-dimensional signal-intensity subspace and 1-dimensional 
35 time-from-event-recognition subspace. Then all (20+1)- 
dimensional vectors at which a base is recognized are 
assembled according to which doublet is formed by the current 
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and previous basecall. Vectors for each doublet are averaged 
arithmetically to form a prototype. The vector averages are 

output to memory. 

A flow chart for the basecalling step is shown in Fig. 
5 15. The basic processing loop is entered at step 1556; the 
next observation is input from memory; and a new vector is 
mapped in configuration space. Variables are initialized at 
step 1576, by looking forward a sufficient number of 
observations into the input data. Distances in the 20- 
10 dimensional signal- intensity subspace to all prototype events 
are computed at step 1558. The distance in the l-dimensional 
time-from-event-recognition subspace is computed at step 
1560. The two distances are multiplied at step 1562 to give 
the configuration space distance. The local distance minimum 
15 event recognition criterion is evaluated at step 1566. 

Illustratively, a local minimum is recognized when the path 
in configuration space has been nearest to a single prototype 
for at least three time points and the distance to that 
prototype at one time point is less than the distances at 
20 adjacent time points. If no event is recognized, the method 
returns to step 1556. If the criterion is met, that doublet 
event is recognized and saved at step 1570. Since the prior 
base recognized has been saved at step 1570, it and the 
currently recognized doublet are used to determine tfre 
25 current base at step 1572. This base and its recognition 
time is output at step 1242. Next (optionally), the average 
time between recognition events is updated by computing a 
moving average of the time between events. Adjustments from 
this average are made for known differences in 
30 electrophoretic mobility dependent on DNA sequence. Since 
the average time between basecalls depends on the nature of 
the separation gels, the voltage used, and other running 
conditions, it can be expected to vary from run to run. The 
average time between basecalls can also vary within a given 
35 run from start to finish. 
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Monte Carlo Proofreading Step 

The optional postprocessing consists of trimming known 
sequences at step 12 38 then Monte Carlo proofreading at step 
1240. Trimming known sequences includes removing known sub- 
5 sequences, usually vector DNA, from the processed data input 
from 1242. 

Proofreading seeks to improve the overall match between 
the signal intensities and the recognized base events. The 
basecalling step looks locally at groups of observations 

10 representing two base recognition events seeking local 
minima. Proofreading tests the recognition globally by 
making proposed alterations (moves) and testing whether 
recognition accuracy is ultimately improved by the 
alterations. In this process, known restrictions on the DNA, 

15 such as it being a protein code, can be utilized. This is an 
important step for improving recognition accuracy. However, 
since it requires data from an entire analysis run, it cannot 
by used for sample selection and shunting. 

Fig. 16 provides flow charts of the' Monte Carlo 

20 proofreading step. For conventional Monte Carlo techniques, 
refer to Press, et al., Numerical Recipes in C (1988), which 
is herein incorporated by reference. Monte Carlo 
proofreading requires three initial choices: a set of 
sequence alterations to try, an energy function to Evaluate 

25 success of the alterations, and an annealing schedule to 

exercise overall control on the proofreading. The following 
are preferred choices. Choose for the set of alterations at 
an observation time: insert a new base recognition, delete a 
base recognition, move the nearest base recognition forward 

30 one observation time, or move the nearest base recognition 
backward one observation time. Other sets of alterations may 
incorporate specific knowledge about the DNA sample. For 
i example, alterations should be limited to valid protein 
codons if the DNA is known to code for a protein. Choose for 

35 the energy function the sum over all base recognition events 
of the square of the distance in configuration space between 
the prototypes of the recognized base sequence and 
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corresponding observation vectors. For the annealing 
schedule, choose a simulated temperature decay exponential in 
the number of epochs of the proofreading method, an epoch 
being a certain number of iterations of the alter-and-test 
5 loop. The simulated temperature probabilistically controls 
acceptance . 

Proofreading begins at step 1610 with the choice of a 
temperature comparable to the value of the initial energy 
function. (Units are chosen so that the Boltzman constant is 

10 1.0.) Next an epoch of proofreading is run at step 1612. 

The temperature is exponentially decremented at step 1614, by 
multiplication with a decay constant less than 1.0, and 
compared to a minimum. The decay constant determines the 
number of proofreading epochs to execute. If the temperature 

15 exceeds the minimum as tested at step 1616, the method loops 
back to step 1612. If not, the method ends at step 1616 and 
the base sequence with all permanently incorporated 
alterations is output to memory. The analysis method is 
complete. 

20 The procedural steps in execution of one epoch of 

proofreading follow. The input data in memory is the base 
sequence output from the basecalling step 1242, as trimmed at 
step 1238, and the preprocessed signal traces 1228. The 
alter-and-test loop begins with selection of a random 

25 observation time from the sequencing run at step 1686 and a 
random sequence alteration from the chosen set of alterations 
at step 1688. A new energy is computed at step 1690 from the 
base sequence using the temporarily incorporated alteration 
and the input preprocessed signal traces. The new energy is 

30 tested at step 1692. If the new energy is lower than the 
previous energy, the alteration is permanently incorporated 
in the base sequence at step 1600. A convergence stop 
condition is tested at step 1602, which is preferably a 
certain number of alter-and-test iterations. Other stop 

35 conditions are possible, such as a certain energy decrement 
during the epoch. If the new energy is not lower, the move 
is allowed or disallowed probabilistically according to the 
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Boltzmann criterion. A random number is generated at step 
1694 to test the Boltzman probability of this move at step 
1696. The Boltzman probability is determined by: 

Acceptance Probability = exp(- energy chan $ e of move ) (6) 



where T is the current temperature of the epoch set at step 
1614* If the move is allowed as tested at step 1698, it is 
permanently incorporated in the base sequence by step 1600. 
In either case the stop condition is again tested. If the 
stop condition is met, the epoch ends and overall stop 
condition at step 1616 is tested. 

The following examples are illustrative of the 
application of the present invention. 

Example 1 - Imaging Spectrograph and Analysis Method 
A segment of double stranded DNA supplied as control 
with reagents from Applied Biosystems Inc. (Foster City, CA) 
(pGEM -3Zf (+) from the -21M13 forward primer) was analyzed. 

Ultrafloat glass (with a green tinge) was used as the 
bottom plate. BK7 glass was used as the top plate. A 100 
micron polyester spacer gasket separated the two pieces of 
glass. Bind silane, consisting of 1 milliliter of ethanol 
(J.T. Baker; Phillipsburg, NJ) , 5 microliters of gamma- 
methacryloxypropyltrimethoxysilane (Sigma Chemical Company; 
St. Louis, MO) , and 50 microliters of 10 percent acetic acid 
(EM Science; Gibbstown, NJ) , was applied sparingly to each 
edge of glass which contacted the comb. The polycarbonate 
comb used had physical dimensions of 0.75 millimeter 
thickness, and teeth making wells in the gel spaced on 2.25 
millimeter centers. Gel was 5 percent monomer 19:1 
acrylamide:bisacrylamide Sequagel (National Diagnostics; 
Atlanta, GA) with 8.3M urea. The running buffer was lx Tris- 
Borate-EDTA. The gel was allowed to polymerize for 3.5 
hours, and was prerun for 0.5 hour. The sample was 
resuspended in 3-6 microliters of f ormamide/EDTA load 
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solution. 0.5 microliters of sample were loaded into the 
gel. 

The collection lens was a 250 itun f5,6 Zeiss medium 
format telephoto lens. Further description of the 
5 spectrograph is provided in the detailed description of the 
invention. Laser power of 82 milliwatts from an LS1000 argon 
ion laser (American Laser Corporation; Salt Lake City, UT) 
was filtered to select the 515 nanometer wavelength using a 
laser line filter, resulting in about 35 milliwatts focused 

10 through the side of the gel. The electrophoresis path from 
the loading region to the detection region had a length of 2 3 
or 24 centimeters. Exposure times were 2 seconds per frame. 
Detector read time was roughly 0.1 seconds. 4000 total frames 
were collected. Electrophoresis was conducted at 2500 Volts 

15 constant voltage applied across 28.5 centimeters using an EC 
650 (E-C Apparatus Corporation; St. Petersburg, FL) power 
supply. This resulted in dissipation of 12.3 Watts in the 
gel. The circulated water was kept at 40 C. Samples were 
injected for 15-3 0 seconds. 

2 0 The transmission imaging spectrograph recorded the 

fluorescence emitted by the labeled fragments. The seven 
lines of Fig. 17 show the trace of the preprocessed 
fluorescence intensities of the four dye labels as a function 
of time for one migration lane as output from the \ 

25 preprocessor. The letters underneath the time axis are the 
determined basecalls. Comparing to published data, from the 
center of the first line on there was perfect agreement, with 
the exception in the last line of one missing T and G (from a 
GGGG sequence). Correct functioning of the spectrograph and 

30 the analysis methods was demonstrated. 

Example 2 - MicroFGE 
Analyses were run with two conventional glass plate 
modules and the microFGE. The first conventional module has 
35 ultra-thin gel, with a 80 plate separation and a 23 cm 
migration path; the second is ultra-thin with a 80 p 
separation and a 10 cm migration path. Both have 32 loading 
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lanes formed with 2.25 mm center spacing. The microFGE has 
80 channels, 80 micron deep on 1.125 mm center spacing and a 
10 cm path . 

The electrophoresis modules were loaded with 5% or 6% 
5 (19:1) polyacrylamide gels with 8.3 M urea. Well-forming 
combs formed the loading wells in the loading region 463. 
Bind silane (as above) assisted adhesion of gel to glass in 
the loading region. The gel was allowed to polymerize for 3 
hours, at which point the well comb was removed leaving 
10 loading wells placed at the head of each migration lane. The 
running buffer was 1 X TBE. The gel was then heated to a 
heat exchange temperature of 40* C. 

Biopolymer fragment samples of a segment of M13 DNA were 
prepared, separated from the sequencing reaction medium, and 
15 resuspended in 3 Ml of loading solution. For the microFGE 
50-100 nl of the loading solution and for a conventional 
glass plate 400-500 nl were loaded into the loading wells. 
With a conventional glass plate, the 23 cm path from the 
loading region to the detection region resulted in separation 
20 of about 400 DNA bases in 2.5 hours with 2500 volts applied 
over 28.5 cm. 

Figs. 18A, 18B and 18 C show the fluorescence traces from 
the transmission imaging spectrograph. In Fig. 18A the trace 
is from the glass plate module with ultra-thin plate spacing 
25 (90V/ cm) and 23 cm path length. In Fig. 18B the trace is from 
the glass plate module with ultra-thin spacing at a 10cm path 
length (100 V/cm) . In Fig. 18C the trace shows results 
obtained with the 10 cm path of the microFGE (lOOV/cm) . 
Figs. 19A and 19B illustrate the output of the CCD 
30 array. They demonstrate the ability of the array to 

discriminate the signals from the different migration lanes 
and from different dyes. 

Integrated functioning of the microFGE with the 
spectrograph were demonstrated. Further, the traces of Figs. 
35 ISA, 18B, 18C, 19A and 19B provide evidence that: 1) a single 
well at the head of a microFGE lane can be loaded with a DNA 
fragment sample; 2) the DNA fragments are separated 

- 60 - 



WO 96/35810 



PCT/US96/06579 



electrophoretically as they travel down a single lane in the 
microFGE; 3) the fragments exit the lane and move into the 
laser channel where they can be excited to fluorescence and 
imaged by the transmission imaging spectrograph; 4) the 
5 spatial broadening associated with exit from the lane is less 
than the spacing between the microFGE lanes; and 5) the dyes 
associated with the different nucleotides can be 
distinguished in time sufficient for base resolution. 
As will be apparent to those skilled in the art, 
10 numerous variations may be made in the practice of our 
invention. 

This invention is not limited to the use of any single 
sequencing chemistry; both chemical and enzymatic methods are 
enabled. By way of example, enzymatic methods can be used 

IS that do not rely on the use of chain terminator chemistry. • 
Sequencing in an integrated device may be enabled by sequence 
ladder generation techniques other than Sanger methods. A 
coupled procedure can be used that will rely on the 
generation of PCR-amplif ied products and subsequent direct 

20 generation of ladders by exonuclease digestion. This is made 
possible by the incorporation of blocking base analogs for A, 
C, G, and T that allow for the PCR extension to proceed to 
completion in each cycle, "but that cause 5' to 3' activity of 
single strand exonucleases (e.g. Exo I; New EnglandtBiolabs ; 

25 Beverly, MA) to be blocked. After four separate PCR 

reactions, each with a single modified blocking base, the 
products can be digested with an exonuclease, thereby 
producing a set. of nested fragments terminating at each point 
of incorporation of the blocking base analog. Suitable use 

30 of dye labeled primers allows for the identification of the 
blocking base which terminates the fragment. These blocking 
bases are made by incorporating substitutions into the 
chemical structure of the DNA bases which allow the base to 
be incorporated by enzymatic action in a growing DNA strand, 

35 and also allow such strand to be a template for growth of a 
complementary strand (DOE Human Genome Project Report, Spring 
1995) . Use of non-chain-terminating fluorescent labels 
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attached to the blocking base analogs would enable reactions 
performed in a single vessel. Biotin immobilization can be 
used on one primer to allow strand separation and separate 
analysis of the fragment ladders generated from each 

5 complementary strand. 

Chemistry techniques producing sequence fragments from 
both complementary strands of DNA also are enabled by our 
invention. Chemistry techniques for generating ladders of 
sequence fragments have previously been used to generate 
10 fragments from, and therefore information about a single 

strand at a time. With the full spectral capability of the 
instrument, and with the analysis capability of the software, 
it is possible to resolve sequence information directly 
generated from both strands simultaneously, thereby 

15 increasing the accuracy, robustness and reliability of 
analysis of a biopolymer sample. In one example, two 
different primers are used for. the two ends of the two 
strands of DNA. Standard Sanger fragment ladders are 
generated corresponding to both strands along the DNA in a 

20 single reaction, with opposite directions (strands) having 
unique dye labeled primers. The dyes are chosen to be 
spectrally resolvable. A strategy incorporating four dyes 
readily allows both strands of a fragment to be sequenced in 
two lanes, each lane corresponding to sequence information on 

25 two bases (e.g. C and T) for each of the two strands. 

Advantageously, a strategy incorporating eight spectrally 
resolvable dyes allows simultaneous independent analysis of 
both sequencing ladders in a single lane. Binary coding 
strategy can be used to decrease the number of dyes required 

30 to perform the same simultaneous independent analysis of a 
biopolymer fragment. 

Even if the analysis of the second sample is not 
complete (for example only a single base termination reaction 
is carried out in the reverse direction, and only a fifth 

35 fluorescent dye is used) , the information can still be used 
to advantage in large-scale contig assembly. 
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A variety of solid-phase supports can be used to bring 
either reactants, template or product into or out of the 
sample loading wells or microf abricated reaction vessels. 
Products and templates can be coupled to the support either 
5 covalently or non-covalently. Examples of non-covalent 
attachment are (streptavidin-biotin) , and (antibody-small 
epitope) . Hybridization between complementary strands of DNA 
is an alternative non-covalent attachment means. Covalent 
attachments made via disulfide bonds are also useful; release 
10 of the attached species is accomplished by a change in 

reduction potential resulting in the break of the disulfide 
bond. Techniques eliminating the need for chemical 
separation steps in the reaction process are ideally matched 
to the invention, and are enabled, for example, by 
15 solid-phase magnetic separations. Specifically, minute 
magnetic beads (Dynal Corporation) are used in standard 
biochemical protocols for material transport, and are a 
suitable substitute for the fixed teeth of a comb used for 
solid-phase loading. Streptavidin coated magnetic beads can 
2 0 be processed in the same manner as the combs. Minute 

magnetic bead allow for quantitation of sample transport and 
are suitable for loading means based on mechanisms for moving 
magnetic particles (C.H. Ahn and M.6. Allen, "A Fully 
integrated Micromachined Magnetic Particle Manipulator and 
25 Separator", J . of Micromechanical Systems, 2, 15-22 (1993)). 
The transport of reaction products on magnetic beads also 
allows for the concurrent separation of reaction products and 
unreacted reagent mixtures. 

Numerous variations may also be practiced in the 
30 signal processing used to identify the nucleotides and the 
same techniques may be used in other signal matching 
applications. For example, the comparisons may be made using 
data representative of triples of nucleotides instead of 
pairs of nucleotides; and other matching strategies may be 
35 used. 
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APPENDIX 

The following computer program listings are copyright 
1995 CuraGen, Inc. ® 1995 CuraGen, Inc. 

5 



10 



15 



20 



25 



30 



35 
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/* Vector and cluster classes */ 

/* In numeric tags, 0=C, 1=A, 2=G, 3=T, -1-X */ 

extern "C H { 
#include <stdio.h> 
#include <stdlib*h> 
# include <math,h> 
} 

#define NUMCLUSTS 16 



double currmin; 
int currcluster; 



class cluster; 



class datapoint { 
public: 

double c, t, a, g; /* fluorescence values */ 
int tag; /* call for this data point */ 

void print (FILE* = stdout, int = 0); 
int input (FILE* = stdin, int = 0); 

void init (double, double,- double, double, int = -1) ; 

double fluorescence (int) ; /* returns value of argument channel */ 

); 

class vector { 
public: 

datapoint threeprev; /* data point at current time - 3 */ 
datapoint twoprev; /* data point at current time - 2 */ 
datapoint prev; /* data point at previous time */ 

datapoint curr; /* data point at current time */ 

datapoint next; /* data point at next time */ 

datapoint twonext; /* data point at current time + 2 */ 
datapoint threenext; /* data point at current time + 3 */ 
int lastcall; /* base last called */ 

double timetocall; ' /* time since last base call (double for averaging) */ 

double lastcallval; /* value of base channel at previous call */ 

double max; /* max fluorescence value */ 

double twoprevmax; /* max for twoprev */ 

double twonextmax; /* max for twonext */ 

int tag; /* call for this vector.*/ 

void normalize (); /* normalizes fluorescence values */ 

int findclust(); /* calculates index of cluster for clustering */ 

int call (cluster **) ; /* determines call of closest cluster */ 

void print (FILE* = stdout); 
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>id input (FILE* = stain) ; 



); 



class cluster { 
public : 
vector data [64] ; 
int size; 
vector average; 
void addvec (vector *) ; 
double distance (vector 
void create_average ( ) ; 

}; 



/* vectors in cluster - should be dynamic */ 
/* number of vectors in cluster V 
/* average for cluster */ 
/* add vector to cluster */ 

* ); /*• determine distance from vector to average 
/* create average from data */ 



int iscall (int) ; 

int calltoint (char) ; 

char inttocall (int) ; 

double avedist(int,int, cluster **) ; 

int c lust erprevtag( int ) ; 

int clustercurrtag(int) ; 

void averagetwovecs (vector *. vector*, vector ); 

void averagetwodps(datapoint *, datapoxnt datapo.nt ). 
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extern *C" { 

#include <math.h> 

J 



void invert (double **, double **, int) ; 



- 67 



WO 96/35810 



PCT/US96/06579 



^include - cluster. h M 



#define TAGGEDFILE 1 

/* if 1, expects input file to be tagged with character tags V 



/* Call data by closest cluster. */ 



extern double cur rmin; 
extern int curr cluster; 

int main (int argc, char *argv[J) { 
int time=0; /* current time */ 

int basenum=0; /* number of bases called */ 
int tixneofcall; /* time of last base call */ 
int lastcall; /* last base call */ 

double lastcallval; /*• value of call channel at last call */ 
int i; 

int callmistakes = 0; 



FILE *datafile; 



if (argc < 2) { 

fprintf (stderr, "Usage: %s <data file>\n w , argv[0]); 

exit (1) ; 

} 

if ('(datafile = f open(argv[l] , n r w ))) { 

fprintf (stderr, "Can not open data file %s.\n'\ argv[U ); 

exit(l) ; 

} 

cluster *clust[NUMCLUSTS] ; /* clusters */ 
cluster *rv; 

/* read through file*/ 

for (i = 0? i < NUMCLUSTS; i++J { /* initialize */ 

if (<rv = (cluster *) malloc {sizeof( cluster) ) ) != NULL) { 
clust[i] « rv; 

) 

else { 

fprintf (stderr, "\nNot enough memory - Cluster %d\n« , i) ; 
exit(l); 

} 

} 

datapoint threeprev, twoprev, twonext, threenext; 
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datapoint prev, curr, next; /* previous, current, and next data points V 
vector vec; /* current vector */ 



char call; 

irit numclusts * 0, xclusts = 0; cclusts = 0, tclusts = 0, aclusts = 0j 
int gclusts = 0; 
int shiftflag = 0; 

/* initialize threeprev through twonext to first six time points */ 
threeprev . input ( dataf ile ( TAGGEDFILE) ; 
twoprev. input (dataf ile, TAGGEDFILE) ; 
prev. input (dataf ile , TAGGEDFILE) 
curr . input (dataf ile , TAGGEDFILE) 
next . input (dataf ile , TAGGEDFILE) 
twonext . input ( dataf ile , TAGGEDFILE ) ; 
time = 2; 
lastcall = 0; 
lastcallval = 1; 
timeofcall = 0; 

/* read through */ 

fprintf (stderr, -Calling data. \n\n" ) ; 

while ((threenext. input (dataf ile, TAGGEDFILE) 1= EOF) && 
(numclusts < NUMCLUSTS ) ) { 
/* determine closest cluster */ 
vec . threeprev = threeprev; 
vec. prev = prev; 
vec. curr = curr; 
vec. tag = curr. tag; 
vec. next = next; 
vec . threenext = threenext; 
vec. lastcall = lastcall; 
vec . timet ocall = time - timeofcall; 
vec . lastcallval = lastcallval; 
vec. normalize ( ) ; 
if (time ~ 2) { 

for (i = 0; i < NUMCLUSTS; i++) { 

/* this is a bit of a kludge - set all clusters same so 

that can use existing cluster functions */ 
clust[i]->average = vec; 

) 

numclusts++; 

fprintf (stderr, "Time %4d, adding prototype for %c 
time, inttocall(vec.tag) } ; 
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switch (vec.tag) { 

case -1: 

xclusts++; 
break; 
case 0: 

cclusts++; 
break; 
- case 1: 

aclusts++; 
break; 
case 2: 

gclusts++; 
break; 
case 3: 

tclusts++; 
break; 

} 

} 

else { 

call = vec.call(clust) ; 

if (('(iscall {vec.tag))) (call -next. tag)) { 
fprintf(stderr, "%c!". inttocall (vec.tag) ) ; 
shiftflag = 1; 

} 

else { 

clust[numclusts ++ 3->average = vec; 

fprintf (stderr, "\nTime %4d, adding prototype for %c [%c] 

time, inttocall (vec.tag), inttocall (call) ) ; 
switch (vec.tag) { 
case -1: 

xclusts++; 

break ; 
case 0: 

cclusts++; 

break ; 
case 1: 

aclusts++; 

breaks- 
case 2: 

gclusts++; 

break; 
case 3 : 

tclusts++; 

break; 
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} 

if (iscall(call) && iscall (vec. tag) ) callmistakes++; 

} 

} 

else fprintf (stderr, "%c", inttocall (vec. tag) ) ; 

■} 

/* move to next time */ 
if (iscall (vec. tag) ) { 
lastcall = vec. tag ; 

lastcallval = curr. fluorescence (call ) ; 
timeofcall = time; 

} 

time++; 

threeprev = twoprev; 
twoprev ~ prev; 
prev = curr; 
curr = next; 
next = twonext; 
twonext = threenext; 

} 

fprintf ( stderr , " \n M ) ; 

if (numclusts < NUMCLUSTS) 

fprintf (stderr, "Finished %d time units with %d prototypes \n" , 
time, numclusts) ; 

else 

fprintf (stderr, "Ran over %d prototype limit at %d time units\n n , 
numclusts, time) ; 
fprintf ( stderr , 

" Prototypes :\n C: %6d\n T: %6d\n A: %6d\n G: %6d\n X: %6d\n 
cclusts, tclusts, aclusts, gclusts, xclusts) ; 
fprintf (stderr, -%d calls incorrectly called as other calls \n", 

callrais takes ) ; 
f close (datafile) ; 

/* reopen to beginning */ 
datafile = fopen(argv[l] , *r m ); 

/* initialize threeprev through twonext to first six time points */ 

threeprev. input (datafile, TAGGEDFILE) ? 

twoprev. input (datafile, TAGGEDFILE); 

prev .input (datafile, TAGGEDFILE); 

curr. input (datafile, TAGGEDFILE); 

next, input (datafile, TAGGEDFILE); 

twonext . input ( datafile , TAGGEDFILE) ; 
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time = 2; 
las teal 1 = 0; 
las teal lval = 1; 
timeofcall = 0; 

/* read through */ 

fprintf (stderr, "\nCalling data.\n\n") ; 
int prevtag = -1; 

while ( (threenext. input (datafile, TAGGEDFILE) != EOF)) { 
/* determine closest cluster */ 
vec . threeprev = threeprev; 
vec.prev = prev; 
vec. curr = curr; 
vec. tag = curr. tag; 
vec. next = next; 
vec . threenext = threenext; 
vec.lastcall = lastcall; 
vec. timetocall = time - timeofcall; 
vec. las teal lval = ^.astcallval ; 
vec . normalize {) ; 
call = vec. call (clust) ; 

if (iscall(call) (call != prevtag}) { 
print f ("%c" , int tocall (call) ) ,- 
basenum++ ; 

if ( ! (basenum%10) ) printf (" * ) ; 
if ( ! (basenum%50) ) printf <" \n" ) ; 
prevtag » call; 

} 

else prevtag = -1; 

/* move to next time */ 
if (iscall(vec.tag) ) { 
lastcall = vec. tag; 

lastcallval = curr . fluorescence (call) ; 
timeofcall = time; 

) 

time++; 

threeprev - twoprev; 
twoprev = prev; 
prev = curr; 
curr = next; 
next = twonext; 
twonext = threenext; 
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fclose(datafile) ; 
print f r\n") ; 
exit(O) ; 
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# include " prot o type. h B 

#define CALLS_ONLY 0 

extern double currmin; 

int main(int argc, char *argv[]) { 
/ / malloc_debug ( 8 ) ; 



int time; /* current time */ 

int right=0, wrong=0; 
int basenum=0; 

int timeofcall; /* time of last base call */ 
int lastcall; /* last base call */ 

int i; 
int call; 
int protnum; 

char ctag[2]; /* tag character */ 



if (argc < 3) { 

fprintf (stderr, "Usage: %s <data file> <prototype file>\n w , argv[0]); 
exit (1) ; 

} 



FILE *datafile, *protfile; 



if (Mprotfile = f open ( argv { 2 ] , "r"))) { 

fprintf (stderr, "%s: Can not open file %s.\n", argv[0J, argv[2]); 

exit (1) ; 

} 

datapoint prev, curr, next; /* previous, current, and next data points V 
vector vec; /* current vector */ 

vector prot [NUMPROTJ ; /* prototypes */ 

double movef actor? /* factor for prototype movement */ 

/* initialize prototypes */ 
for (i = 0;- i < NUMPROT; i++) { 

fscanf (protfile, "%lf %lf %1£ %l£%ls" , &prot [i] .prev.c, fcprot [i] .prev.t, 
&prot [ij .prev. a, &prot[i] .prev.g, ctag); 

prot [i] .prev. tag = calltoint (ctag[0] ) ; 

fscanf (protfile, "%lf %lf %lf %1£ %ls- , &prot [i) .curr .c, &prot[i] .curr.t, 

&prot [i] .curr. a, fcprot [i] .curr .g, ctag); 
prot [i] .curr. tag = calltoint (ctagfO] ) ; 

fscanf (protfile, -%lf %l£%lf%lf %ls" , &prot [i] .next .c, fcprot [i] .next . t, 
&prot [i] .next. a, &prot [i] .next .g, ctag); 
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protti] .next . tag = calltoint (ctag[0] ) ; 
prot[i] . normalize () ; 
prot[i]. tag = prot [i] .curr. tag; 
// prot[i] .print () ; 
} 

/* read through data file, using calls to update prototypes */ 

for (movef actor = 0.2; movef actor >= 0.01; movef actor /= 2.0) { 
fprintf (stderr, "Move factor ■= %.4f\n M , movef act or ) ; 

if (!(datafile = f open(argv[l] , "r"))) { 

fprintf (stderr, "%s: Cannot (re)open file %s.\n", argv[0], argv[l]); 

exit(l) ; 

} 

/* initialize prev and curr to first two time points */ 
fscanf (datafile, "%lf %lf %lf %lf %ls M , 

fcprev.c, fcprev.t, fcprev.a, fcprev.g, ctag); 
prev. tag = calltoint (ctag [0] ) ; 
fscanf (datafile, "%lf %lf %lf %lf %ls" , 

fccurr.c, &curr-.t, &curr.a, &curr.g, ctag); 
curr. tag = calltoint (ctag [0] ) ; 
time = 2; 
lastcall = 3 ; 
timeofcall = 0; 

// fprintf (stderr, "Reading file.\n Scanning line "); 
while {fscanf (datafile, "%lf%l£%l£%lf %ls" , 

fcnext.c, &next.t, fcnext.a, fcnext.g, ctag) i= EOF) { 
next. tag = calltoint (ctag [0] ) ; 
if ((time%500) ==0) { 
// fprintf (stderr, "%d. . . " , time) ; 

} 

if (iscall (curr. tag) ) { 

/* if call, create and normalize vector, find and update closest 

prototype */ 
vec.prev = prev; 
vec.curr = curr; 
vec.next = next; 
vec. lastcall = lastcall; 
vec . timetocall = time - timeofcall; 
vec . normalize ( ) ; 
protnum - vec. call (prot) ; 
call a prat [protnum) .tag ; 
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determine if correct and move prototype accordingly */ 

if (call == curr. tag) C ^ 
/! fprintf(stderr, "Moving prototype %dXn» , protnum) , 

prot [protnum] . print { ) ; 

fprintf (stderr, "towards (%.2f ) \n" . movefactor) ; 

vec. print (); */ 
prot [protnum] .movetowards(&vec, movefactor) ; 
/* fprintf (stderr, 'Result is\n"); 
prot [protnum] .print ( ) ; 
*/ 

) 

^fprLtf (stderr, • Moving prototype %d\n' , protnum) , 
/ * prot [protnum] . print ( ) ; 

fprintf (stderr, "away from <%.2f)\n", movefactor); 

vec.printO; */ 
prot [protnum] .moveaway <&vec, movefactor); 
/* fprintf (stderr, "Result is \n" ) ; 

prot [protnum] - print () ; 



} 



basenum++; 

lastcall = curr. tag; 

timeofcall = time; 

} 

/* move to next time */ 
time++ ; 
prev = curr; 
curr = next ; 

) 

/* fprintf (stderr, -New prototypes : \n" ) ; 
for (i=0; i < NUMPROT; i++) < 
prot [i] .print {) ; 
} 

*/ 

fclose{dataf ile) ; 

) 



,* now use proW to call */ ^ ^ Qf fUe v 

datafile = f open(argv[l] , r j, 



time = 0; 
basenum = 0; 



double twoprevmin = 0, prevmin = 0; 
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int prevcall = -1- prevbase = 0; 
int disttocall = 0; 

/* initialize prev to first time points */ 
f S canf (dataf ile. -%lf%l£%l£%l£%l«" • 

tprev.c, tprev.t, fcprev.a, fcprev.g, ctag) , 

prev. tag = calltoint(ctag[0] ) ; 
fscanf (dataf ile. •%l«l£%l£%lf%l«" • 

&curr.c, fccurr.t, tcurr.a. fccurr.g. ctag). 

curr.tag = calltoint (ctag[0] ) ; • 
time = 2 ; 
lastcall = 0; 
timeofcall = 0; 



/* read through */ 

fprintf (stderr, "Calling data. \n\n" ) ; 
while ((£ scanf (dataf ile, -%1£%1£%1£%1£%1-". 

&next.c, fcnext.t, inext.a, tnext.g, ctagi j 

next. tag = calltoint (ctag[01 ) ; 

/* determine closest prototype */ 

vec.prev = prev; 

vec.curr = curr; 

vec.next = next; 

vec.tag = curr.tag; 

vec. lastcall = lastcall; 

vec.timetocall = time - timeofcall; 

vec .normalize ( ) ; 

protnum « vec .call (prot) ; 

call - prot [protnum] .tag; 



if (CALLS„ONLY) ( 

if (iscalKcurr. tag) ) ( 

printf <"%c B , inttocall(call) ) ; 

if (iscalKvec. tag) ) { 
lastcall = vec.tag; 
timeofcall = time; 

} 

if {iscall(call) ) { 
basenum++; 
lastcall = call; 
timeofcall = time; 
if (call — vec.tag) { 
right ++; 
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} 

else { 
wrong++ ; 

printf ( * { %c ) " , inttocall ( vec . tag) ) ; 

}. 

} 

if (basenum%10 ~ 5) printf (" w ); 
if {basenum%50 «« 25) printf (* \n n ) ; 

) 

} 



if { i CALLS_ ONLY) { 

/* determine if distance is a local minimum */ 

if ((twoprevmin > prevmin) (prevmin <= currmin) 

(disttocall > (0.45*avetimetocall (prevcall, prevbase) ) ) ) { 

/*)(*/ 

lastcall = prevcall; 

timeofcall = time-1; 

printf C^c", inttocall (prevcall ) ) ; 

basenum++; 

if < ! (basenum%79)-) printf ( B \n B ) ; 
disttocall = 0; 
prevbase = prevcall; 

} 

else { 
// printf (" -*) ; 

disttocall++; 

} 

// printf (° [%c] n , inttocall (prev. tag) ) ; 

) 

/* move to next time */ 
time++; 
prev = curr; 
curr = next; 
prevcall = call; 
twoprevmin « prevmin; 
prevmin = currmin; 



printf { " \ri" ) ; 

if (CALLS_ONLY) { 

fprintf (stderr, - \nCalling completed. Read %d time units, %d calls\n", 
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time, basenum); 

fprintf (stderr, "Calls right: %d\nCalls wrong: %d\nSuccess rate: 
%4.3f\n", 

right, wrong, double (right) /double {basenum) ) ; 

) 



f close (datafile) ; 
exit(O) ; 
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/* Contains member functions for cluster and vector classes, as well as 
other auxilliary functions. */ 

#include "cluster. h" 

extern double currmin; 
extern int currcluster; 

int round (double x) { 

return ( (x - int(x) > .5) ? (int(x) + l) : iat(x)), 

} 

void datapoint::print(FILE *f P . int flag) { 

,* if flag is one, print tag; if zero don't prut tag / 
fprintf(fp, "%10.6f ", c); 
fprintf(fp, "%10.6f t); 
fprintf(fp, "%10.6f a); 
fprintf(fp, "%10.6f'\ g) ; 

if (flag) fprintf(fp. «%6c" , . inttocall (tag) ) ; 
fprintf(£p, "\n"); 

) 

void vector: : print (FILE *fp) ( 
threeprev . print ( f p) ; 
prev. print (fp) ; 
curr.print(fp) ; 
next .print (fp) ; 

threenext. print ( f p) ; _ a^\n» 

fprintf(fp. "%3d %3d %10.6£ %10.6£ %1 -6f %10JK %3dNn threenextmax , 
lasteall. timetocall, laatcallval. max, threeprevmax, 

tag) ; 

) 

int ^^^^^^J^. t look for tag. Sets all negative 
/* read in from file. If flag n „^tic tags if 2, looks for 

values to 0. If flag is 1. looks for alphabetic tags, 

numeric tags, */ 
int rv; 
char ctag[2] ; 

rv = fscanf(fp. »%lf %" %" %1£ "« &C ' & *' &9> *' 
if ((flag == 1) W <rv != E0F)) ( 
• rv = fscanf(fp, "%ls-, ctag); 
tag = calltoint(ctag(0]) ; 

if ((flag « 2) ** «- EOF)) rv - fscanf(f P , •%*". «*fl> , 
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if 


(c 


< 


0) 


c 


= 0 


if 


(t 


< 


0) 


t 


= 0 


if 


(a 


< 


0) 


a 


= 0 


if 


(g 


< 


0) 


g 


= 0 



return rv; 

} 

double datapoint: : fluorescence (int tag) { 
switch (tag) { 
case 0 : 

return c; 

break; 
case 1: 

return t; 

break; 
case 2: 

return a; 

break ; 
case 3 : 

return g; 

break; 
default: 

return 0; 

break ; 

} 

} 

void vector: : input (FILE *fp) { 
/* read in from file */ 
threeprev. input ( f p) ; 
prev . input ( f p ) ; 
curr . input { f p ) ; 
next . input { f p } ; 
threenext - input ( f p) ; 

fscanf (fp, -%d %d %lf %" %lf %lf %dXn " ' 

&lastcall, fctimetocall, fclastcallval, 
*max, tchreeprevmax, fcthreenextmax, Stag); 

} 



void vector :: normalize {) { 

/* normalize all fluorescence values so that max value is 100, and set 
max field to absolute max. *l 

double maxl, max2, max3 , max4 ( max5. max6, max7, max8, max9. maxlO; 
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/* quick hack! */ 



prev.t 
curr . a 
curr . t 
next . a 



/* round one - compare pairs of values */ 
maxl = (prev.c > prev.a)? prev.c : prev.a; 
max2 = (prev.g > prev.t)? prev.g 
max3 = (curr.c > curr. a)? curr.c 
max4 = (curr.g > curr.t)? curr.g 
max5 = (next.c > next. a)? next.c 
max6 = (next.g > next.t)? next.g : next.t; 
max7 = (threeprev.c > threeprev.a) ? threeprev.c : 
max8 = (threeprev.g > threeprev . t ) ? threeprev.g : 
max9 = ( threenext. c > threenext .a) ? threenext. c : 
maxlO = ( threenext. g > threenext . t) ? threenext. g 

/* round two - compare winners of round 1 */ 

maxl = (maxl > max2) ? maxl : max2; 

max2 = (max3 > max4) ? max3 : max4; 

max3 = (max5 > max6) ? maxS : max6; 

max4 = (max7 > max8)? max7 : raax8 ; 

threeprevmax = max4; 

max5 = (max9 > maxlO)? max9 : maxlO; 

threenextmax = max5; 



/* round three - determine largest winner of round 2 */ 
maxl = (maxl > max2)? maxl : max2; 
max2 = (max3 > max4)? max3 : max4; 
max3 = max 5 ; 

/* round four - determine largest winner of round 3 */ 
maxl = (maxl > ntax2)? maxl : max2; 
maxl = (maxl > raax3)? maxl : max3 ; 
max = maxl; /* set max field */ 

/* maxl is now max. Normalize values */ 
if (maxl >= 0) { 

threeprev.c = threeprev.c / maxl; 

threeprev.a = threeprev.a / maxl; 

threeprev.g = threeprev.g / maxl; 

threeprev. t = threeprev. t / maxl; 

prev.c = prev.c / maxl; 



threeprev.a; 
threeprev . t ; 
threenext .a; 
: threenext. t; 



prev.a / maxl; 
prev.g / maxl; 



prev . a 
prev . g 
prev.t = prev.t / maxl; 
curr . c = curr . c / maxl ; 
curr . a = curr . a / maxl ; 
curr.g - curr.g / maxl; 
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curr.t = curr.. t / maxl; 
next.c = next.c / maxl; 
next. a = next. a / maxl; 
next.g = next.g / maxl; 
next.t = next.t / maxl; 
threenext.c = threenext.c / maxl; 
threenext.a = threenext.a / maxl; 
threenext.g = threeriext.g / maxl; 
threenext.t = threenext.t / maxl; 

} 

} 

int iscall(int call) { 

/* determines whether a data line has been called */ 
return* (call >= 0) && {call <= 4J); 

} 

int calltoint (char call) { 

/* converts character tag to int */ 
switch (call) { 
case 'C : 

return 0; 
case 'A' : 

return 1; 
case 'G' : 

return 2; 
case 'T' : 

return 3; 
case 'X' : 
default : 

return -1; 

} 

) 

char inttocall {int tag) { 
switch (tag) { 
case 0: 

return 'Cr- 
ease 1: 

return 'A'; 
case 2: 

return 'G' ; 
case 3 : 

return 'T' ; 
case -1: 
default : 
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return 'X' ; 

) 

} 

void cluster:: addvec (vector *vec) { 

/* adds the vector vec to the cluster clust */ 
if (vec->max != 0) { 
if (size >= 64) { 

fprintf (stderr, "Warning: Too many vectors in cluster %c %c\n" , 
inttocall (vec->lastcall) , inttocall (vec->tag) ) ; 

} 

else { 

data[size] = *vec; 
size++; 

} 

} 

) 

void cluster;: create_average C ) { 

/* creates arithmetic average vector from vectors in data array */ 
int i; 

double tpcs = 0.0, tpas = 0.0, tpgs = 0.0, tpts = 0.0; 

double pes = 0.0, pas = 0.0, pgs = 0.0, pts = 0.0; 

double ccs = 0.0, cas = 0.0\ cgs = 0.0, cts = 0.0; 

double ncs = 0.0, nas = 0.0, ngs « 0.0, nts = 0.0; 

double tncs = 0.0, tnas = 0.0, tngs = 0.0, tnts = 0.0; 

double ttcs = 0.0, levs = 0.0, ms = 0.0, pms = 0.0, nms = 0.0; 

vector *cp; 

/* sum up each vector component */ 

if (size == 0) fprintf (stderr, "No data points in this cluster ! \n" ) ; 

// fprintf (stderr, "\nCluster~ %c%c:\n inttocall (data [0] . lastcall) , 

// inttocall (data[0] .tag) ) ; 

for (i = 0; i < size; i++) { 
cp = &data[i] ; 
// * if (i>0) fprintf (stderr, "%d " , cp->timetocall) ; 
tpcs += cp->threeprev.c; 
tpas += cp->threeprev.a; 
tpgs += cp->threeprev.g; 
tpts cp->threeprev.t; 
pes += cp->prev.c; 
pas += cp->prev,a; 
pgs += cp->prev.g; 
pts += cp->prev.t; 
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ccs += cp->curr.c; 
cas += cp->curr.a; 
cgs += cp->curr.g; 
cts += cp->curr.t; 
ncs +- cp->next.c; 
nas += cp->next.a; 
ngs += cp->next.g; 
nts 4= cp->next.t; 
tncs += cp->threenext ,c; 
tnas += cp->threenext .a; 
tngs += cp->threenext .g; 
tnts += cp->threenext . t; 

if (i>0) { /* ignore timetocall and lastcallval for first data point, 
since may be bad */ 
ttcs += cp-> timetocall; 
lcvs += cp->lastcallval; 

} 

ms += cp->max; 

pms += cp->threeprevmax; 

nms += cp- > thr eenextmax ; 



/* take averages */ 

average. thr eeprev. c = tpcs/size; 

aver age. thr eeprev. a = tpas/size; 

average . threeprev . g = tpgs/size; 

average. threeprev.t = tpts/size; 

average . prev . c = pes /size ; 

average. prev. a = pas /size ; 

average.prev.g = pgs/size; 

average. prev. t = pts/size; 

average . curr . c = ccs /size ; 

average . curr . a * cas /size; 

average . curr . g = cgs /size ; 

average . curr . t = cts/size; 

average . next . c = ncs /size; 

average . next . a = nas/size; 

average . next . g = ngs /size; 

average . next . t = nts /size ; 

average . threenext . c = tncs /size; 

average . threenext . a = tnas/size; 

average . threenext . g = tngs /size; 

average . threenext . t = tnts/size; 

average. timetocall = round (ttcs/ (size-1) ) ; 

average. lastcallval = lcvs/ (size-1) ; 

average, max = ms/size; 
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average . threeprevmax = pms/size; 
average . threenextmax = nms/size; 

average. las tcall = data [01 .lastcall; /* same for whole cluster */ 
average. tag = data [ 0] .curr. tag; /* same for whole cluster V 

// fprintf (stderr, ■ (average % ,2£ %d) • , ttcs/ (size-1) , average, time tocall) ; 
} 

double cluster:: distance (vector *vec) { 
double dist, vmax, amax, vlast, alast; 

if (vec->max <= 0) vmax = 1; 

else vmax = vec->max; 

if (average. max <= 0) amax = 1; 

else amax =' average. max; 

if (vec->lastcallval <= 0) vlast = 1; 

else vlast = vec->lastcallval; 

if (average, las tcallval <= 0) alast = 1? 

else alast = average . lastcallval ; 



dist =( { 



// 
// 
// 
// 



// 
// 
// 



+ 
+ 
+ 
+ 



pow( (vec->threeprev.c - average . threeprev. 
pow ( <vec-> threeprev. a - average . threeprev. 
pow ( ( vec-> threeprev . g - average . threeprev . 
pow ( (vec-> threeprev . t - average . threeprev . 
pow( (vec->prev.c - average. prev. c ) *1. 5, 2) 
pow( (vec->prev.a - average.prev.a) *1.5, 2) 
pow( (vec->prev.g - average. prev. g) *1. 5 , 
pow( (vec->prev. t - average. prev. t) *1. 5, 
pow((vec->curr.c - average. curr . c) *2 . 0, 
pow( (vec->curr.a - average, curr .a) * 2.0, 
pow( (vec->curr.g - average. curr .g) *2.0, 
pow( (vec->curr. t average. curr . t) *2.0, 
pow ( ( vec->next . c - average . next . c ) * 1 . 5 , 
pow( (vec->next .a - average. next. a) * 1.5, 
pow( (vec->next.g - average. next .g) * 1.5, 2) 
pow ( ( vec->next . t - average .next . t ) * 1 . 5 , 
pow(vec->prev.c - average. prev. c + vec->next.c - average. next .c, 2) 
pow(vec->prev.a - average.prev.a + vec->next.t - average. next . t , 2) 
pow(vec->prev.g - average, prev.g + vec->next.a - average, next .a, 2) 
pow(vec->prev.t - aver age. pr ev. t + vec->next.g - average, next .g, 2) 
pow( (vec->threenext.c - average. threenext .c) , 2) + 
pow( (vec->threenext.a - average, threenext .a) , 2) + 
pow ( (vec-> threenext. g - average. threenext .g) , 2) + 



c), 


2) 


a) , 


2) 


g), 


2) 


t). 


2) 


+ 




+ 




+ 




+ 




+ 




+ 




+ 




+ 




+ 




+ 




+ 




+ 
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// 
// 



pow((vec->threenext.t - average. threenext. t) . 2) + 
pow(vec->threeprev.c - average. threeprev. c + 

vec ->threenext.c - average . threenext . c , 2) * 
pow(vec->threeprev.a - average. threeprev. a + 

vec->threenext.t - average. threenext. t. 2) + 
pow(vec->threeprev.g - average. threeprev. g * 

vec->threenext.a - average. threenext. a. 2) + 
pow(vec->threeprev.t - average. threeprev. t + 

vec->threen e xt.g - average. threenext. g, 2)) 
(powtO.SMveotimetocall - average. ttoetocall) . 2) + 1) + 
(pow(0.01Mvmax/vlast - amax/alast) . 2) + 1) 
((vmax < amax)? (pow(0 .3*(vmax - amax) . 2) + 1) : D 
(now ((log (vmax) - log (amax))*. 5, 2) + 

pow log<vec->threeprevmax> - log (aver age. threeprev^ • 5 • 
Powdloglveothreenexuoax, - log (aver age. threenextmax) , .25, 2)) 

) ; 



) 



// if (vec->la S tcall == average. lastcall) dist = dist-1000; 
return (dist) ; 

} 

int vector:: call (cluster **clust) { 

/• determines tag of closest cluster */ 

double dist [NUMCLUSTS] ; 
int i; 

for (i=0; i < NUMCLUSTS; i++) ( 

distti] = clust (il ^distance (this) ; 
// clusttlastcallM + i] ->distance(this) ; 

) 

,:. par min. Should change 
/* note: for coding purposes, use linear min. 

to log time min by pairing */ 

double rain; 

/* go through array updating min as you go */ 
min = dist [0] ; 

for (i * 1; i < NUMCLUSTS; { 
if (distti] < min) min = distti] ; 

) 

• 4™,m distance - determine cluster */ 
/* min is now minimum distance 

// if (min < 10000) ( 
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/* set currmin to this value */ 
currmin = ndn; 
// printf(-\n%15.0f mixi) ; 

for (i = 0; i < NUMCLUSTS; { 

if (min == disttil) t 
/« ' printf ("Current vector: \n"); 

this->print() ; 
' printf ("Closest cluster: \n")? 
clust [ i ] ->average . print ( ) ; * / 
// printf C (%<3) i): 

currc luster = i; 
return (clust til -average . tag) ; 

} 

) 

//) 

/* default */ 
return (-1) : 

int - ctor::fin ^ t f ^^ ster to whic n this vector belongs */ 
/* returns index or cxusuex 
return (4*lastcall + curr.tag) ; 

) 

doubl e avedist(int prev, int curr, cluste, : «cl«t) i 
r find cluster and return average t^etocalj 
retum(clust[4*prev ♦ curr] -average, t.metocall) , 

} 

int of cluster number cl V 

/* return tag of previous 

return (cl/4) ; 

] 

int clusterc ^^J^ ^ of cluster nuntoer cl */ 
/* return tag of current 

return (cl%4) ; 

} 
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Pl file. Reads from standard input, 
,utive rows in a four channel file- 
/* Adas consecutive r 

writes to standard output. */ 



extern " c " 1 

# include <stdio.h> 

# include <stdlib.h> 

} 

main ( ) t 

i „i al, P2. r2, y2, g2; 
double pi. rl. yl- B 1 ' p 



* «f *1£- Wl. tyl ' t9l) == 4> && 

""""^ £ P 2. Vl^. • 

exit(O); 



) 
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*-„,,»- t-h^ averages corresponding cluster 
/* Read two cluster files, produce output that averag 

values from the two clusters. */ 



#include "cluster. h" 
int main (int argc, char *argv[]) { 
FILE *clusterfilel, *clusterfile2; 

if (argc != 3) { 
f printf ( 
exit(l) ; 

) 



{argc != 3) { cluster £ile>\n", argvtO]); 

fprintf (stderr, "Usage: %s <cluster file> <ciusi: e 



if ( > (clusterf ilel = £open(argv[l] , "r"))) ( 

fprLtf (stderr, "Can not open cluster file %sAn", argv[l] > , 



exit(l) ; 

} 



if ( • (clusterf ile2 = fopen(argvl2] , "r")>) < 

fprLtf (stderr. "Can not open cluster file %s.\n", argv t 2]»; 



exit(l) ; 

} 



int i; 

vector vecl, vec2, average; 

for (i = 0; i < NUMCLUSTS; i++) { 
vecl. input (clusterf ilel) ; 
vec2 . input < clusterf ile2 ) ; 
averagetwovecs<&vecl, &vec2, ^average) ; 

average .print { ) ; 

} 

} 



) 
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flinclude "cluster. h" 

/* Using all calls, create "clusters" for each base called 
(plus additional information if desired) . 
Find average vector of each cluster. 

Run through file again, this ti*e calling even nu^ered calls by 

closest cluster. (N , } , and X, where X is for no base. 

Possible tags are C, A. G, T, in.j, 

*/ 

int main(int argc, char *argv[]) { 
int time; /* current time */ 

int basenum=0; 

int timeofcall; /* time of last base call / 
int lastcall; /* last base call V 

int i; # . 
charctag[21; /* for reading tag character / 

if (argc < 2) { .... 
fprintftstderr, "Usage: %s <dataf ile>\n" . argv[0]), 

exit(l) ; 

} 

FILE *datafile; 

if (! (datafile = fopen(argv[l] , "r"))) { 

fprintf(stderr. "Can not open data file %sAn", argvdl), 

exit(l) ; 

) 



a. t , P o int -™ t^ev >= — ; ^ ^ ^ points 

datapoint prev, curr, next, / 

/* current vector */ 
vector vec; ' 
cluster *clust[NUMCLUSTS]; /* clusters / 



cluster *rv; 



/* read through, collecting calls */ 

for (i = 0; i < NUMCLUSTS; i + +) ( /*■ initialize / 

if <(rv - (cluster *) malloc (sizeof (cluster, ) ) != ™ < 

clustti] = rv; 
clust(i]->size = 0; 

} 

^fprLtftstderr. "\nNot enough memory - Cluster %dVn" . i) 

exit(l) ; 

] 
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} 

/* initialize threeprev through twonext to first six time points V 

fscanf (datafile, -%If %lf %lf %lf %ls". 

fcthreeprev.c, fcthreeprev. t , fcthreeprev.a, threeprev . g, ctag); 

threeprev. tag = calltoint (ctag [0] ) ; 
fscanf (datafile, -%lf %l£%lf %lf%ls", 

fictwoprev.c, &twoprev.t, fctwcprev.a, fctwoprev.g, ctag) ; 
twoprev.tag = calltoint (ctag[0] ) ; 
fscanf (datafile, "%lf %lf %lf %lf %ls M , 

fcprev.c, fcprev.t, fcprev.a, fcprev.g, ctag); 
prev.tag = calltoint (ctag[0] ) ; 
fscanf (datafile, "%lf%lf%lf %lf%ls-\ 

tcurr.c, fccurr.t, fccurr.a, fccurr.g, ctag); 
curr.tag = calltoint (ctag [0] ) ; 
fscanf (datafile, -%lf %lf%lf%lf%ls" , 

fcnext.c, ftnext.t, fcnext.a, fcnext.g, ctag); 
next. tag = calltoint (ctag [0] ) ; 
fscanf ( datafile , - %lf %lf %lf %lf %ls M , 

fc twonext. c, & twonext. t, & twonext. a, ttwonext.g, ctag); 
twonext. tag = calltoint (ctag [0] ) ; 
time = 2; 
lastcall = 3 ; 
timeofcall = 0; 

fprintf (stderr, "Reading file.Nn Scanning line •); 
while ((fscanf (datafile, -%lf%lf %l£%lf %ls" . 

& threenext. c, &threenext . t , * threenext .a, ^tnreenext .g, ctag)) 

! = EOF) { 

threenext.tag = calltoint (ctag [0] ) ; 
if ((time%500) == 0) { 

fprintf (stderr , "%d. . . time) ; 

) 

if (iscall (curr.tag) ) ( 

/* if call, create and normalize vector, and 

add to appropriate cluster */ 
vec . threeprev = threeprev; 
vec.prev = prev; 
vec.curr = curr; 
vec. next = next; 
vec . threenext = threenext; 
vec. tag - curr.tag; 
vec. lastcall = lastcall; 
vec.tiraetocall = time - timeofcall; 
vec. normal ize{) ; 

clust [vec . f indclust ( ) ) ->addvec (&vec) ; 
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basenum++; 

lastcall = curr. tag; 
timeofcall = time; 

/* move to next time */ 
time++; 

threeprev = twoprev; 
twoprev = prev; 
prev = curr; 
curr = next; 
next = twonext; 
twonext = threenext; 

} 

~*>a Treating clusters ..."); 
fprintf(stderr, "\nFile scanned. Creating 

/* create cluster averages V 
f printf ( s tderr . • \n ■ ) ; 

for (i = 0; i < NUMCL.USTS; < 
clus t [ i ] ->cr eate_average {) ; 

} 

Read %d time units, " , time) 

fprintf(stderr. "Average vector :\n ); 
clust { i ] ->average . print ( ) ; 
)*/ 

fprintf ( stderr , " \n" ) ; 
/* reset */ 

f close (datafile) ; , . /. re open to beginning of file */ 

datafile = £ openUrgvlU . r ) : 

time =0; 
basenum - 0; 

char call; 

int right = 0, wrong =0; 

initiate tfcreeprev tnroug* -next to first six time points V 
fSCanf ( -S^riS^Si V. — ev.a. —ev.g, ctag, 
threeprev.tag - calltoint (ctag 10» ; 
fscanf(data£ile. -%lf%l«"%l«" < 
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ttW oprev.c, *two P rev.t, & t W opxev.a ( itwoprev.g, ctag); 
twoprev.tag = calltoint (ctaglO] ) ? 
fscanf (datable. ^ ^ ^ ^ ^ g< ^ ; 

orev.tag = calltoint (ctag 1 0] ) ; 
Lcanf(datafile. .%«%lf%lf%l£%l.-. 

&C urr.c, fccurr.t, tcurr.a. fccurr.g, ctag,, 
curr.tag = calltoint < ctag [ 0 ].) ; 
fscanf(datafile, -%lf%l£*lf*lf %ls« . 

& next.c, fcnext.t. & next.a. *next.g. ctag), 

next. tag = calltoint (ctag [0] ) ; 

fsC anf(datafile. " %1£%lf%lf *" %1 ^ onext . a( &twon ext.g. ctag) ; 
&twonext.c, ttwonext.t. ttwonext.a, 

twonext.tag = calltoint (ctagtO] ) ; 

time = 2; 
lastcall = 0; 
timeofcall =0; 

/* read through */ 

f printf (stderr , "Calling data . \n\n* ) ; 
!= EOF) { 

threenext.tag = calltoint (ctag [0] ) ; 
if (iscall(curr.tag)) t 
/* determine call */ 
vec.threeprev = threeprev; 
vec.prev = prev; 
vec.curr = currr 
vec. next = next; 

vec.threenext = threenext; 

vec. tag. = curr.tag; 

vec. lastcall = lastcall; 

vec.timetocall = time - timeofcall; 

vec .normalize ( ) ; 

call = vec.call(clust) ; 

printf ( " %c" , inttocall (call) ) ; 

if (iscall(vec.tag) ) ( 
lastcall = vec. tag ; 
timeofcall = time; 

) 

if (iscall(call) ) ( 
basenum++; 
i lastcall = call; 
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timeofcall = time; 
if (call ~ vec.tag) { 
right++; 

} 

else { 
wrong++ ; 

printf ( ' (%c) " . inttocall (vec . tag) ) ; 

} 

} 

if (basenum%10 5) printf (" "); 
if (basenum%50 « 25) printf <"\n" ) ; 

) 

/* move to next time */ 
time++; 

threeprev = twoprev; 
twoprev = prev; 
prev = curr; 
curr = next; 
next = twonext; ( 
tv/onext - threenext; 



printf ("\n") ; 

Rpad %d time units, %d calls\n", 
f printf (stderr, ■ \nCalling completed. Read «d ex 

time, basenum) ; 

fprintf (stderr, M \nSuccess rate: %4.3£\n", 

-Calls right: %d\nCalls wrong: %d\nSuccess rat; 
right, wrong, double (right) /double (basenum) ) ; 



f close (dataf ile) , 
exit(O); 

} 
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,. create dusters «. ardent W. if there is °- «~' 
otLwis.. U rite cluster averts to sta»a»rd output. 

#include "cluster. h" 

/. Using all call, create -clusters" for each base called 
(plus additional information if desired) . 
Find average vector of each cluster. 

*/ 

int main (int argc, char *argv[]) { 
int time; /* current time *' 

int basenum=0; t . 
int timeofcall; /* time of last base call / 
int lastcall; /* last base call V 

double lastcallval; /* fluorescence value of last 

int i; 

FILE *datafile; 

if (argc == D datafile = stdin; 

"'If u (datafile - f open(argv[l] . "r« > > > < argv[1]); 
fprintf (stderr. "Can not open data file %s.\n , gv 

exit(l) ; 

} 

) 

aatapoint prev. curr. -ext. / ^ ^ 

vector vec; 

cluster *clust[NUMCLUSTS] ; /* clusters / 
cluster *rv; . 

/* read through, collecting calls */ . 

for U - 0; i < NOMCLUSTS; ( /* initialize / 

I f ( ( (r v l (clu^er *, malloclsizeof^luster))) ■ - WI*) < 

clust[i] = rv; 
clustli]->size - 0; 

} 

else ( cluster %d\n" , i) ; 

fprintf (stderr, "\nNot enough memory Cluster 

exit(l); 

) 

} 
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/* initialize threeprev through twonext to first six time points V 
threeprev. input (datafile, 1) ; 
twoprev. input {datafile, 1) ; 
prev. input (datafile, 1) 
curr. input (datafile, 1) 
next, input (datafile, 1) 
twonext , input (datafile, 1) ; 
time = 2; 
lastcall = 3; 
timeofcall = 0; 
lastcallval =1.0; 

fprintf(stderr, -Reading fileAn Scanning line «)'; 
while (threenext. input (datafile, 1) != EOF) { 
if ((time%500) == 0) { 

fprintf (stderr, "%d..." , time); 

} 

if (iscall (curr. tag)) { 

/* if call, create and normalize vector, and 

add to appropriate cluster */ 
vec . threeprev = thre*eprev; 
vec.twoprev = twoprev; 
vec. prev = prev; 
vec.curr = curr; 
vec. next = next; 
vec.twonext = twonext ; 
vec . threenext = threenext; 
vec. tag = curr. tag; 
vec. lastcall = lastcall ; 
vec . timetocall = time - timeofcall; 
vec. lastcallval = lastcallval; 
/* update lastcallval before normalizing V 
lastcallval = curr . fluorescence (curr .tag) ; 
vec . normalize ( ) ; 

clust (vec . f indclust ( ) ] ->addvec (&vec) ; 
basenum++; 
lastcall = curr. tag; 
timeofcall = time; 

> 

/* move to next time */ 
time++; 

threeprev = twoprev; 
twoprev = prev; 
prev = curr ; 
curr = next ; 
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next = twonext; 
twonext = threenext; 

} 

fprintf (stderr, <\nFile scanned. Creating clusters ..."); 

/* create cluster averages */ 
fprintf {stderr, "\n");. 

for (i = 0; i < NUMCLUSTS; i++) I 
clust [i] ->create_average ( ) ? 

} 

fprintf (stderr. ^Clustering completed. Head %d time units, time,; 
fprintf (stderr, -%d total calls\n». basenum) ; 

for (i = 0; i < NUMCLUSTS ; { _ y 

II fprintf (stderr, "\nCluster %d, size %d.\n . i. 
// fprintf (stderr, "Average vector :\n") ; 
clust [i]->average. print () ; 

} 

// fprintf (stderr, "\n"); 

fclose(dataf ile) ; 
exit(0) ; 

} 
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/ * convert . c 
* 

* 4 August, 1993 

* ■ Rebecca N . Wright 
* 

* Program to convert binary raw CCD data into smaller, ASCII files. 

* 

* Assumes input file begins with header as specified in the CSMA file 

* head. doc. NOTE: throughout CSMA documentation, integer means short integer. 

* Currently, only unscrambled data is supported, along with the following 

* data types are supported: 
* 

* datatype from header: 

* 1 -> long integer {4 byte) 

2 -> integer (2 byte) (Actually SHORT int) 

3 -> unsigned integer (2 byte) (Actually unsigned SHORT int) 

* 

* First argument is file to be processed. Optional second argument 

* specifies number of lanes. 

* Prompts for number of lanes (if not specified as command line argument) 

* and super-pixels per lane, and adds together 

* to form lanes. 

* . 

* Output is one file for each lane, with two digit 

* lane number appended to filename. Each output file has four columns 

* (C. T, A, G) and one row for each time (starting with time 0) . 

* 

* Exit value: 0 if successful, 1 if error. 



#include <stdio.h> 
# include <stdlib.h> 

#define HEADER_SIZE 4100 
#define HEADER_TYPE short int 
#define DATA_TYPE_1 long int 
#define DATA_TYPE_2 short int 
#define DATA_TYPE_3 unsigned short int 
#define GENERALJTYPE long int 

tdefine N0SCAN_L0C 34 
#define FACCOUNT_LOC 42 
•define DATAJTYPE_LOC 108 
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#define STRIPE_LOC 656 
#define SCRAMBLE_LOC 658 

#define CHUNK_SIZE 1024 



^TloT ( /* ^ superpixel does lane begin? 

in F ' . /* what superpixel does lane end? V 

"La.e^ei; /* — of output file for lanej, 

FILE *fp; /* P° inter t0 ° UtPUt fllS 



? */ 



}; 



main(int argc, char *argv{]) { 
FILE *infile; 

HEADER_TYPE *headerbuf; s tripes_per_frame; 
HEADERJTYPE total.s tripes . num.super.p.xels , datatype, strip _P 
HEADERJTYPE scranfcle, num_frames, frarae_size; 
DATA_TYPE_1 *databufl; /* for datatype 1 V 
DATA_TYPE_2 *databuf2; /* for datatype 2 V 
DATA_TYPE_3 *databuf3; /* for datatype 3 V 

"^^^/cur^tripe. curr.lane, curr^a, n^lanes. legend.- 

int in, offset. total_vals. frames.left. frames_read; 

int this_chunk_size. prefixindex; 

struct lane * lanes; 

char prefix [32], *in£ ilename; 

int hs = sizeof (HEADER_TYPE) , hn = HEADER_SIZE/hs; 
/* check for correct usage */ 

exit(O) ; 

} 

/* open data file */ 

if (< (infile = fopent argvl 1] , w r"))) ( 

fprintf (stderr, ■%.: Can not open %sSn", argvtO], argMl],, 

exit(l); 

} 

inf ilename = argvCl] ; 

/* read in header and extract needed fields V 

* ^ r /ur*nER TYPE *) calloc<hn, hs) J ) I 
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exit <D? 

! f (frea d(headerbuf, hs, hn. infil.) M-*> < _ ^ CQ0 8hortAn .. 
f printf(stderr. -%s: Incorrect fxle typ 
argvlO], argvtl]); 

exit(l); 

l M1 _ sctipes . — 

scramble - header du i stripes _per_frame; 
nura _frames - ™ 1 n ^super_pixels ; 

printf (»Nn») ; sfcripes per fra me, %d super pixelsAn", 

printf ("There are %d st "^ frame , nuI n_super^xels) ; 

total_s tripes. stnpes_per_ 

. , frData type is %d.\n", datatype); . 
printf ( Data tyf (scramble == U • 1 

printfCData is %sscramb1edAn , 

printf ("\n"); 

if , gcrarobl-ad data unsupported. \n" < 

fprintf (stderr, *s. 



exit (1) ; 



; for xane formation and open output file for each lane 

else C flre there , {1 - %d) nun,_ S uper_pixels) ; 

printf ("How many lanes are there, 
scanf ( " %d" . &num_lanes ) ; 

fprintf (staerr, « 
exitd); 

} i *c sizeof (struct lane)))) 



exitd) ; 

} 



/. strip out filename */ 
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prefixindex = 0; 

while ( (*inf ilename != '.') && 

<*inf ilename != '\0')) { 
if (*inf ilename =='/'){ 
prefixindex = 0; 
infilename++; 

) 

else { 

prefix! pre fixindex++] * *infilename++; 

} 

} 

left_end = 1; 

for {i = 0; i < num_lanes; i++) { 

printf ("Low superpixel for lane %d? (%d - %d) 

ieft_end, num_super_pixels) ; 
scanfC%d", &in) ; 

if ((in < left_end) || (in > num„super pixels) } { 

fprintf (stderr, tt %s: Low superpixel out of range. \n", argv[0]); 
exit(l) ; 

} 

else { 

lanes[i].low = in; 
left_end = in; 

} 

printf ("High superpixel for lane %d? (%d - %d) • , 

i+1, left_end, num_super„pixels ) ; 
scanfr%d", &in) ; 

if ((in < left_end) || (in > nuro_super_pixels ) ) { 

fprintf (stderx, "%s: High superpixel out of range An", argv[0]); 
exit(l); 

} 

else { 

lanes [i3 -high = in; 
left_end = in+1; 

} 

/♦ write i+1 to end of filename prefix */ 
sprintf (lanes [i] .filename, ^s", prefix); 

if (i < 9) sprintf (lanes [i] .filename + prefixindex, -0%d", i+1) ; 
else sprintf (lanes [i] .filename + prefixindex, '%d", i+1); 
printf ("File name for lane %d is %s\n", i+1, lanes [i] . filename) ; 
if (! (lanes ti] .fp = f open (lanes [i] . filename, "V))) { 

fprintf (stderr, p %s: Can't open output file %s.\n", argv[0], 
lanes [i] .filename) ; 

exit(l) ; 

) 
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} 

/* read in a chunk of frames at a time and output to desired format */ 
frames_lef t = num_f rames ; 
frames_read = 0; . 

switch (datatype) { 

case 1: ^ 

databufl = { DATA__TYPE_1 *) calloc (CHUNK^SIZE* frames xze, 

sizeof (DATA_TYPE_1) ) ; 

break; 
case 2 : 

databuf2 = <DATAJTYPE„2 *) calloc (CHUNK.SIZE-f rame^sxze, 

sizeof (DATA_TYPE_2 ) ) ; 

break; 

case 3 : " 

databuf3 = (DATA„WPE„3 *) calloc <CHUNK_SIZE*f rame.size 

sizeof (DATA_TYPE_3 ) ) ; 

break; 

de fpSntf(stderr. ■%.: Unsupported data type %d. Xn" , ' W [0] . datatype); 

exit (1) ; 

} 

print f ( H Processing frame " ) ; 

while <frames_left > 0) { rmiKnc size- 

this_chunk_size = (frames.left < CHUNK_SIZE) ? framesjeft : CHUNK.SIZE, 

depending on data type, use appropriate data buffer for reading data V 

switch (data_type) { 

"If <fread<d a tabufl. sizeof (DATA_TXPE_1) , this.chunk.size'frame.size, 
infile) != this_chunk_size*frame_size) { 
fprintfCstderr. -%s: Unexpected end of file%s.\n«, argv[0] , argvtU) 

exit (1) ; 

for (i = 0; i < this„chunk_size*frame__size; { 
printf <"%6d\n", databuf 1 [i] ) ; 

) 

break; 

"If (fread(databuf2. sizeof <DATA_ T YPE_2) . this_chunk_size*f ranie.size, 
infile) '= this_chunk_size*frame_size) { 
f P rintf(stderr. Unexpected end of file %s.\n", argv[0]. argvtl]) 

exit ( 1.) ; 

} 
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for (i = 0; i < this_chunk_size*f rame_size; i++) { 
printf r%6d\n M , databuf 2 [i] ) ; 

} 

break; 
case 3 : 

/* read in chunk of frames */ 

if (fread( databuf 3, sizeof (DATA_TYPE_3 ) , this_chunk_size*frame_size, 
infile) != this_chunk_size*frame^size) { 
fprintf (stderr, "%s: Unexpected end of file %s.\n", argv[0], argv[lj) 
exit(l) ; 

} 

/* process frame chunk */ 

for (curr_frame = 0; curr_frame < this_chunk_size; curr_f rame++) { 
/* process one frame */ 

if ( ! (f rames_read%500) ) printf ( "%d. . . n , f rames_read+l) ; 
printf ( "Frame %d\n M , frames_read+l) ; */ 

for (curr_stripe = 0; curr_stripe < stripes_per_frame; curr_stripe++) 
/* process one stripe - find lanes */ 
printf {" Stripe %d\n" , curr_stripe+l) ; */ 
for (curr_lane = 0; curr_lane < numjanes; curr_lane++) { 
/* process one lane - add up entries low to high */ 
printf (" Lane %d: low is %d, high is %d.\n", curr_lane+l, 
lanes [curr_JLane] .low, lanes [cur r_lane] .high) ; */ 

sum = 0 ; 

offset = (curr_frame * frame_size) + 

(curr„stripe * num_super_pixels) + lanes [curr.lane] .low-1; 
for (curr_val = lanes [curr_lane] .low - 1; ^ 
curr_val < lanes [curr_lane] .high; curr_val++) { 
printf (" Adding field %d at %d: %d\n", curr„val+l, offset, 

databuf 3 [offset] ) ; */ 
sum = sum + databuf 3 [of f set] ; 
of fset+-t-; 

) 

printf (" Sum for lane %d is %d\n M , curr_lane+l, sum); */ 
f printf (lanes [curr_lane] . fp, "%10d" , sum) ; 

} 

) 

f rames — read++ ; 

for"(i = 0; i < num_lanes; i++) f printf (lanes [i] * fp, "\n"); 

} 

break; 



frames__left -« this_chunk_size; 
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} 

print f ( M Done\n" ) ; 

for (i = 0; i < nuiru.lanes; i++) f close (lanes [i] ,fp) ; 
f close (inf ile) ; 
exit (0) ; 
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Determines edit distance between two sequences *f JL-tt*» * s ^'glLt, 
in two argument files (ignores whitespace in sequences) . If on gum 
Teads sequence! from standard in.. " 
Uses a dynamic programming algorithm. In order to m^ 
simpler, runs sequences backwards along edges of matrix. / 

#define debug 0 

extern "C" { 

#include <stdio.h> 
#include <stdlib.h> 

} 

class entry { 
public : 

}; 

char *seql, *seq2; 
int lengthl, length2; 

int equal (int i, int j) { 

return (seql I lengthl- i] == seq2 [length2-o] ) ; 

} 

int min(int a, int b) { 
return (a < b? a : b) ; 

} 

main (int argc, char **argv) { 
FILE *seqlfile, *seq2file; 
char c[2] ; 

entry ** d i s tance; /* edit distance matrix V 
/ / raalloc_debug ( 8 ) ; 

"^Zt'tXJ*. ■«—■ " le> £ile>W ' ar9Vl0,1: 

exit(l) ; 

} 

if (argc == 3) { 

/* open sequence files */ 
seqlfile = f open(argv(l] , "r"); 
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seq2file = fopen(argv[2] , -x')t 

if (!seq2file) { eemien ce file %s . \n" . argv[2]); 

fprintf (stderr, "Can not open sequence 



exit(l) ; 

} 

) 



if (argc == 2) { 
seqlfile = stain; 
seq2file = f open(argv(l] , T"); 

} 



if (Sseqlfile) { ctini1 „„ file %s.\n" , argv[l]) 

fprintf (stderr, "Can not open sequence 



exit(l) ; 

} 



int buflsize = 512. buf2si*e = 512; 

/* read in sequences */ e ,^-r\\- 
n ichar *) «alloc(bu£laize * s«eof(char»). 

seq l = (char ) ma , f2size * siz eof (char) ) ; 

seq2 = (char *) malloc (buf 2size 

/* read sequences in, ignoring whitespace V 

lengthl =0; . 
while (fscanf (seqlfile. •%!.". c) » < 
if (buflsize <= lengthl) { 

seql[lengthH-+] = clOl; 

} 

length.2 = 0; . . 

while (fscanf (seq2file. ■%!--. c) - « ( 
if (buf2size <= length2) { 

seq2Uength2++] = elOl : 



} 



%4d\n %4dSn«, lengthl, length2) ; 

printf ("\nBases: %4d\n 

/• allocate distance array */ 
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distance * (entry **) calloc(lengthl + l, sizeof (entry *)); 



int 

for (i=0; i <= lengthl; i++) { 

distanced - "(entry *) calloc (length2 + l ( sizeof (entry) ) ; 

} 

entry *curr; 

/* initialize (dummy) outer row and column V 
curr * &distance[0] [0] ; 
curr->d = 0; 
curr->p = 0; 

for (j - 1; j <= length2; { 
curr = fitdistance[0] [ j] ; 
curr->d - j ; 
curr->p * 1; 

) 

for (i = 1; i <= lengthL; i++) I 
curr = &distance[i] [0] ; 
curr->d = i; 
curr->p = 3; 

} 

/* actual entries */ 
for (i * 1; i <= lengthl; ( 
for (j = 1; j <- length2; { 
curr = &distance[i] tjl ; 

/* first get minimum of upper and left neighbor / 
if (distance[i-l][j].d < distance [i] [j-U -d) { 

curr->d «= distance [i~U 13 1 -d + 1; 

curr->p - 3/* 

) 

else { 

curr->d = distance [i] [j-U - d + 1; 
curr->P = 1; 

} 

/* if equal, see if diagonal entry is less, if not equal, 

see if diagonal entry + 1 is less */ 
i ((distanceti-UU-11.^ ^1(1,^0:1, > < curr->d> < 
curr->d = distanceti-lHD-U-a + (equal < i. :» ?0:1> ; 

curr->p = 2; 
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) 

) 

) 

if (debug) { 

printf ( " \n " ) ; 

for (j = 0; j < length2; j++) ( 
printf C%c " , seq2[j]) ; 

] 

printf C\n") ; 

for (i = 1; i <= lengthl; ( 
printf ("%c seqlllengthl-il); 
for (j = 1; 3 <= length2; { 
printf C%d distance [ill jl-d); 

) 

printf ("\n") ; 

) 

printf ("\n") ; 

) 

* M crix construct matching */ 
/. starting at lower right comer of matrix, con 

class match { 
public: 

char cl; 

char mid; 

char c2 ; 

}; 

roatch -matching; + length2> sizeof (struct match)) 

matching = (struct match *) callocu-eng 

int currl - lengthl. curr2 = length2, matchlength - 0, 

*currmatch = ' subst itutions = 0; 

int additions = 0, deletions 

curr « &distancetcurrl]tcurr2); 

while (curr->P != 0) { 
switch (curr->p) ( 

case 1: 

currmatch->cl = 

currmatch->mid * ' ' ? 

curnuatch->c2 = seq2 (Iength2-curr2l ; 

curr2 — ; 
deletions**; 
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break; 
case 2 : 

currmatch->cl = seql [lengthl-currlj ; 

if (equal(currl, curr2) } currinatch->mid = ' : ' ; 

else { 

curnnatch->mid = ' ' ; 

substitutions++; 

} 

currmatch->c2 = seq2 [Iength2-curr2] ; 
currl — ; 
curr2 — ; 
break; 
case 3 : 

currmatch->cl = seql[lengthl-currl] ; 

currmatch->rnid = ' ' ; 

currmatch->c2 = 

currl — ; 

additions++; 

break ; 

} 

curr = ^distance f currl ] [curr2] ; 
ma tchlength++ ; 
currmatch++ ; 



print f ("\n") ; 

int currline, lengthleft = matchlength, offset = 0; 

while (lengthleft > 0) { 

currline = (lengthleft < 80) ? lengthleft ; 80; 
lengthleft -« currline; 

/* write sequence 1 V 
currmatch - &matching[of f set] ; 
for (i = 0; i < currline; i++) { 

print f { "%c" , currmatch->cl) ; 

currmatch++ ; 

} 

printf ("\n") ; 

/* write middle */ 

currmatch = &matching [of f set] ; 

for (i « 0; i < currline; i++) { 

printf ( ■ %c " , currmatch->mid) ; 

currmatch++; 
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} 

printf ("\n M ) ; 

/* write sequence 2 */ 
currmatch = fcmatchingtof f set] ; 
for (i - 0; i < currline; { 

printf ("%C\ currmatch->c2) ; 

currmatch++; 

} 

offset += currline; 
printf P\n\n") ; 

} 

if (additions > 0) printf ("Additions: %4d\n" , additions); 

if (deletions > 0) printf ( "Deletions : %4d\n" , deletions); 

if (substitutions > 0) printf ("Substitutions: %4d\n" . substitutions) 

if (distance [lengthl] [length2] ,d > 0) 

printf ( - \nTotal : %4d\n\n" , distance [lengthl] [length2] .d) ; 

else printf ( "Sequences identical . \n\n" ) ; 

f close (seqlfile) ; 
f close (seq2file) ; 

exit (0) ; 

) 
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in two argument files (ignores ^ ^ frQm argument £ile . 

re ads sequencel fro, standard xnput^ ^ ^ 

Uses a dynamic programming algorithm. In order l 
silpler.^uns sequences backwards along edges of matrxx. / 

extern "C M { 

# include <stdio«h> 
#include <stdlib.h> 

} 

class entry ( 
public: 

int d; /* distance */ diagonal, 3 for up 

int p; /* previous - 0 for none, 1 for left, 2 

); 

char *seql, *seq2; 
int lengthl, length2; 

int equaKint i, int j) { . 

return ( seql I lengthl-i ] * " seq2 [length2-3l J t 

) 

int min(int a, int b) { 
return (a < b? a : b) ; 

) 

main (int argc, char **argv) { 
FILE * seql file, *seq2file; 
char c[2} ; 

entry -distance; /* edit distance matrix V 

/* open sequence files */ 
seqlfile = fopen(argv(l] , "r"); 
seq2£ile = fopen(argvl2] . "r"); 

int buflsize = 512, bu£2size = 512; 
/* read in sequences */ 

seql (char * ) malice (buflsize * size o cha . 
seq2 . (char •) malloc(buf2size * sxzeof (char) ) , 

/. read se^ences in. ignoring vhitespace V 
lengthl = 0; 
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while (fscanf (seqlfile, nis", c) ~ 1) ( 
if (buflsize <= lengthl) { 
buflsize *~ 2; 

seql = (char *) realloc (seql , buf lsize*sizeof (char) ) ; 

} 

seql [lengthl++] = c[0] ; 

) 

length2 « 0; 

while (fscanf {seq2file, "%ls", c) 1) ( 
if (buf2size <= length2) ( 
buf2size *= 2; 

seq2 = (char *) realloc (seq2 , buf 2size*sizeof (char) ) ; 

} 

seq2 (length2++] = c[0]; 

} 

print f ("\nBases: %4d\n %4d\n« . lengthl, length2); 

/* allocate distance array */ 

distance = (entry **) calloc <lengthl + l, sizeof (entry *)); 
int i , j ; 

for (i=0; i <= lengthl; i++) { 

distanced - (entry *) calloc (length2+l, sizeof (entry) ) ; 

) 



entry *curr? 

/* initialize (dummy) outer row and column * 
curr = &distanceI0] [0] ? 
curr~>d = 0; 
curr->p = 0; 

for (j = 1; j <= length2; j++) ( 
curr - &distance[0] [j] ; 
curr->d = j ; 
curr->p = 1; 

) 

for (i = 1; i <= lengthl; i++) ( 
curr = .&distance[i] [0) ; 
curr->d = i; 
curr->p = 3; 

) 
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/* actual entries */ 
for (i = 1; i <= lengthl; i + +) ( 
for (j * 1; j <- length2; { 
curr = &distance[i] [j] ; 

/* first get minimum of upper and left neighbor / 
if (distance[i-ll[jJ.d < distanced] [j-U .* < 

curr->d = distance [i-U tjl + lf 

curr->p =3; 

) 

else { 

curr->d = distance[i] t j-U d + 1; 
curr->p = 1; 

} 

,* if equal, see if diagonal entry is less, if not equal, 
see if diagonal entry + 1 is less V 

curr->p = 2; 

) 

} 

) 

starting at lower right corner of matrix, construct etching V 

class match { 
public: 

char cl; 

char mid; 

char c2; 

); 

.^WfcstLt .atcn *) callocdengthl + length si*eof (struct 

int currl - lengthl. curr2 = length2. matchlength = 0; 
match *currmatch = tonatchingtO] ; 

int additions - 0, deletions - 0. substxtut.ons = 0; 
curr = ^distance [currl] lcurr21; 

while (curr->p != °> < 
switch (curr->p) ( 

case 1: 

currmatch->cl = '-' '• 
currmatch->mid = 
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currmatch->c2 = seq2 [Iength2-curr2] ; 

curr2 — ; 

deletions**; 

break; 

case 2 : 1 i • 

if (equal (currl. curr2)) currmatch-nad 

' else ( 

currmatch->n\id » ' ' ? 

substitutions**; 

curnaatch->c2 = S eq2 Ilength2-curr2] ; 

currl — ? 
curr2 — ; 
break; 

case 3 : - , 

cu«r«tch->cl = seqlHengthl-currl]; 

currmatch->mid = ' 1 ? 
currmat:ch->c2 = 

currl — ; 

additions**; 

break; 

Lrr = distance lcurrl)[curr2]; 

matchlength++ ; 

currmatch++; 

) 

printf <"\n") ; 

, „i-M-£t = matchlength. offset = 0; 
int currline, lengthlett 

while (lengthleft > 0) < lengthleft : 80; 

currline = (lengthleft < 80) 
lengthleft -= currline; 

/* write sequence 1 */ 
currmatch = matching [off set]; 

for (i - 0; i < currline; i~) I 
pr intf ( " %c ' . currmatcn->cl ) ; 
currmatch++ ; 

) 

printf ("\n") ; 

/* write middle */ 

currmatch = snatching (offset! ; 
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£or (i = 0; i<currline; ±~M 
pr intf { " %c " , currmatch->nad) , 
currmatch++; 

} 

printf("\n"); 

/* write sequence 2*1 
fcurrmtch- etching [off set],- 
for (i-0, i < currline; i-> 

printf C%c". currmatch->c2) , 

currmatch++; 

} 

offset += currline; 
printf C\n\n") ; 

. ■ %4d\n", additions); 

lf Additions > 0) P^^"^ 1 ^; %4 dNn", deletions); 
if deletions > 0) P^j^f -S^titutions: %4dX»-. substitutions, 
if (substitutions > 0) P" n "' 

if (aist.ncetlensthU 11-** « ^« ^O^l H-*" •« ' 

printf ("\nTotal: Xn \ n "); 
else printf (-sequences identical. Nn\n 

f close (seqlfilel ; 
fclose(seq2f ile) ; 

exit(0); 

) 
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extern "C" { 

^include <stdio.h> 
^include <stdlib.h> 
# include <math.h> 

} 

^include « invert. h" 

wi» M41, double b[4]) ( 
void copy (double a[4j 

a[0] = bid; 

atll = bll] s 

a[2] = bl2]; 

a[3] = b[3] ; 

) 

int maxcol (double result (41 > ( ^ 
/* returns column number of max 
double maxl. max2; 

1M111 9 result 10] = result 111; 
^ . (resulted > result 1] • ; result[31; 

^2 . (result [2] > " 
if <max2 > maxl) maxl =-max2 ( 

' if (maxl == result [0]) return 0» 
if (maxl== results ) 
if (maxl== r-ultW) re urn 2 
if (max!- result^]) return 3, 

/* default */ 
return -1# 

/wible * result) ( 

cnbnect to constraint that se 

taints 1- — ' 

double max [4] ; 
double curr[41; 

int maxtime. max2time. txme - 0. 

initial-;/ < 200; time++) 

for (tune = 0, f%nf% . lf .) ; 

fscanf (datable. &currl2 , , .curr (31 ) 

fscanf (datafile, *a« 
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time++ ; 

copy (max, curr); 



fscanf (datafile, -%lf%lf%lf %lf " , *curr[0]. icurrll). &curr[2], &curr[3]); 

copy(max f curr); 

while (fscanf (datafile, -%lf%l£%lf%lf " . 

&curr[0], &curr[l], &curr[2], &curr(3]) != EOF) { 

time++; 

if ((curr [column] > max[column]) && (column *== maxcol (curr) ) ) 
copy { max , curr ) ; 
maxtime = time; 

} 

) 

fprintf (stderr, - Time %4d:*\ maxtime); 

fprintf (stderr, "%10.01f %10.01£ %10.01£ %10.01f\n' f 

max[0], max[l], max [2] , max(3]); 
copy (result, max) ; 

/* initialize */ • 
time = 0; 

fseek<datafile, 0L, SEEK_SET) ; 

for (time = 0; time < 200; time++] 

fscanf (datafile, "%*1£ %*1£ %*lf %*lf • ) ; 

fscanf (datafile, »%lf %lf %lf %lf &curr[0), *curr[l] , &curr[2], &curr[3J); 
time++ ; 

copy (max, curr) ; 

while (fscanf (datafile, "%lf %l£%lf %lf " . 

&curx[0], &curr[l], &curr[2], &curr(31) != EOF) I 

time++; , , . 

if ((abs(time - maxtime) > 50) && (currlcclumn) > max [column] ) 

&& (column == maxcol (curr) ) ) { 

copy (max, curr) ; 

max2time = time; 

) 

) 

fprintf (stderr, " Time %4d: " . max2time) ; 
fprintf (stderr, »%10.01f %10.01f %10.01f %10.01f\n«, 
max[0], max[l). max[2] , max[3)); 
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fse ek(datafile, 0L. SEEK_SET) ; 
fprintf (stderr, "Yellow (A):\n"); 
findmax(datafile, 2, max); 
for (i = 0; i < 4; i++) 
matrix! i] [21 = maxti] ; 

f S eek(datafile. OL, SEEK_SET) ; 
fprintf (stderr, "Green (G):\n"); 
findmax(datafile, 3. max); 
for (i = 0; i < 4; i++) 
matrixti] [3] - max[i] ; 

fprintf {stderr . "Matrix: \n" ) ; 
for (i = 0 ; i < 4; i++) t 

for (j = 0; j < 4; , • , mi • 

fprintf (stderr, -%10.01f matrix UJ b) 1 - 

fprintf (stderr, "\n"); 

) 

invert (matrix, inversion, 4) ; 

fprintf (stderr. "Inverting matrix ... \n">; 
for (i = 0 ; i < 4; i++) t 
for (j = 0; j < 4; j++) 

printf ("%15.101f inversionfi] [DJ ) • 

printf ("\n") ; 

} 

fprintf ( stderr , " Done . \n" ) ; 

1 
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result [0] - (result [0] + max[0])/2; 

result [1] = (result [1] + max[l])/2; 

result [2] = (result [2] + max(2])/2; 

result [3] = <result[3] + max[3])/2; 



main(int argc, char *argv[]) { 
if (argc < 2) { 

fprintf (stderr, "Usage: %s <datafile> \n» , argv[0] ) ; 

exit(l) ; 

} 

malloc_debug(8) ; 
FILE *datafile; 

/* read from argument file */ 

if (Kdatafile = f open (argv[l) , "r"))> { 

fprintf (stderr, -%s: can not open file %s\n- , argv[0], argvtl]); 

exit (1) ; 

} 

double max [4] ; 

double **matrix, ** inversion ; 
int i , j ; 

matrix = (double **) calloc(4, sizeof (double *)); 
inversion = (double **) calloc(4, sizeof (double *)); 

for (i - 0; i < 4; i++) { 

matrixCi] = (double *) calloc<4, sxzeof (double) ; 
inversion^] - (double *) calloc(4, sizeof (double) ) ; 

} 

fprintf (stderr, "Purple <C):\n M ); 
findmax(datafile, 0, max); 
for (i = 0; i < 4; i++) 
matrix! i] [0] = raaxlil; 

fseek(datafile, 0L, SEEK_SET) ; 
fprintf (stderr, -Red (T):\n-); 
findmax(datafile, 1, max); 
for (i = 0? i < 4; i++> 
matrix [i] [U = max(i) ; 
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/* Reads tags off a four channel tagged file and writes them to 
standard output.*/ 

extern "C" { 

#include <stdio.h> 
#include <stdlib.h> 

} 

main(int argc, char **argv) { 

if (argc < 2) { 

fprintftstderr, -Usage: %s <tagged f ile>\n- , argv[0]); 

exit(l); 

} 

FILE * taggedfile; 

taggedfile « fopen (argv[U , "r"); 

"SS.'-... - -t op» «** fU. «Trt... «^«». 

exit(l) ; 

} 

double c, a, g, t; 
char call [2] ; 
int i = 0; 

while ((fscanf (taggedfile, -%*lf %*W %*lf %*" call > " X) > ( 

if (call[0] 1 = 'X') { 
i++; 

printf C%c-., call[0]); 
if (! (i%10)) printf (" "); 
if (!(i%40)) printf C\n«) ; 

} 

} 

printf C\n") ? 

f close (taggedfile) ; 
exit(0) ; 

) 
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dist =( 

II 
II 
II 
II 



II 
II 
II 
II 



pow((vec->threeprev.c - average. threeprev. c) , 2) + 
P ow((vec->threeprev.a - average. threeprev. a) . 2) + 
pow{(vec->threeprev.g - average. threeprev. g) . 2) + 
pow((vec->threeprev.t - average. threeprev. t) , 2) + 
pow((vec->prev.c - average . prev. c) *1.S, 2) + 
pow((vec->prev.a - average. prev. a) * 1.5. 2) + 
pow((vec->prev.g - average.prev.g) *1. 5, 2) + 
pow((vec->prev.t - average. prev. t)*l. 5. 2) + 
pow((vec->curr.c - average. curr. c)*2, 2) + 
pow((vec->curr.a - average. curr. a) *2, 2) + 
pow((vec->curr.g - average. curr. g)*2, 2) + 
pow((vec->curr.t - average. curr. t)*2, 2) + 
pow{(vec->next.c - average. next. c) *1. 5, 2) + 
pow{(vec->next.a - average. next. a) *1. 5, 2) + 
pow((vec->next.g - average. next. g>* 1.5, 2) + 
pow((vec->next.t - average. next. t ) *1. 5, 2) + 

pow(vec->prev.c - average. prev. c ♦ veonext.c - average.next.c. 2 + 
P ow(vec->prev.a - average. prev. a ♦ vec->next.t - average.next.t, 2 + 
P o W (vec-> P rev.g - average.prev.g ♦ vec->next.a - average. next. a, 2 + 
P ow(vec-> P rev.t = - average. prev. t + veonext.g - average. next. g, 2) 
pow((vec->threenext.c - average . threenext . c } , 2) + 
P ow((vec->threenext.a - average. threenext. a) . 2) + 
pow((vec->threenext.g - average. threenext. g) , 2) + 
pow((vec->threenext.t - average. threenext. t) , 2) + 
pow(vec->threeprev.c - average. threeprev. c + 

vec->threenext.c - average. threenext. c. 2) + 
P ow(vec->threeprev.a - average. threeprev. a + 

vec->threenext.t - average. threenext. t, 2) + 
pow(vec->threeprev.g - average. threeprev. g + 

vec->threenext.a - average. threenext. a, 2) + 
pow(vec->threeprev.t - average. threeprev. t ♦ 

vec->threenext.g - average. threenext. g. 2) + 
pow({vec->tinetocall - average. timetocall )*. 3, 2) + 
pow((vlast - alast) , 2) + 
po W ((loglvmax) - log(amax) ) * -5, 2) + 

POW((log(vec-> t nreeprev I n a x) - log (average, threeprevmax -25 2 
POw((log(vec->threenextmax) - log (average, threenextrnax) )*. 25, 2) 

); 



// ■ P ow((vec->threeprev.c - aver age. thr eepr ev. c) , 2 

// p OW <(vec->threeprev.a - average. threeprev. a) . 2 

/ / pow ( ( vec-> threeprev . g - average . threeprev . g) . 2 ) 
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// 



pow{ (vec->threeprev. t - average, threeprev. t) , 2) + 



// 
// 
// 
// 



// 
// 
// 
// 



+ 
+ 
+ 

+ 
+ 
+ 
+ 

+ 
+ 



pow( (vec->prev.c - average. prev.c) *1.5, 2] 
pow( (vec->prev.a - average. prev. a) *1.5, 2] 
pow( (vec->prev.g - average.prev.g)*1.5, 2) 
pow( (vec->prev. t - average. prev. t) *1. 5, 2) 
pow( (vec->curr.c - average, curr. c ) *2.0, 2) 
pow( (vec->curr.a - average. curr, a) *2.0, 2) 
pow( (vec->curr.g - average. curr. g) *2.0, 2) 
pow( (vec->curr. t - average. curr. t)*2.0, 2) 
pow( (vec->next.c - average. next. c) *1. 5, 2) 
pow( (vec->next.a - average. next. a) *1 .5, 2) 
pow ( ( vec ->next . g - average . next . g) * 1 . 5 , 2 ) 
pow{ (vec->next. t - average. next, t) *1.5, 2) 
pow(vec->prev.c - average, prev.c + vec->next.c - aver age. next .c, 2) + 
pow(vec->prev.a - average, prev, a + vec->next.t - average .next . t, 2) + 
pow(vec->prev.g - average, prev, g + vec->next.a - aver age. next .a, 2) + 
pow(vec->prev.t - average. prev. t + vec->next.g - average. next .g, 2) + 
pow < (vec-> threenext.c - average . threenext.c) , 2) + 
pow( (vec->threenext.a - average. threenext. a) , 2) + 
pow( (vec-> threenext. g - average. threenex t. g) , 2) + 
pow ( (vec->threenext . t - average . threenext . t ) , 2 ) + 
pow(vec->threeprfev.c - average . threeprev . c + 

vec-> threenext.c - average. threenext.c, 2) + 
pow(vec->threeprev.a - average. threeprev. a + 

vec-> threenext. t - average. threenext. t, 2) + 
pow(vec->threeprev.g - average . threeprev . g + 

vec-> threenext. a - average . threenext . a , 2) + 
pow (vec-> threeprev. t - average, threeprev. t + 

vec-> threenext. g - average, threenext .g, 2)} * 
(pow(0.3*(vec->timetocall - aver age. timetocall ) , 2) + 1) //* 
(pow{0.01* (vmax/vlast - amax/alast) , 2) + 1) 
((vmax < amax)? (pow(0 .3* (vmax - amax), 2) + 1) : 1)// + 
pow( (log<vec->threeprevmax) - log (average, threeprevmax) ) * .25 , 2) + 
pow{ (Log(vec->threenextniax} - log( average. threenextmax) )* .25 , 2) 

); 
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Routines for matrix inversion, fro, Numerical Recipes in C. p.43-45, 
but with indexing running from 0 to n-1 V 

extern "C" { 

#include <raath.h> 
♦include <stdio.h> 
♦include <stdlib.h> 

} • 

♦define TINY l-0e-20; 

void nrerror( char error_text [ ] ) { 

/* Numerical Recipes standard error handler / 

fprintf( S tderr. -Numerical Recipes run-time error. . .\n") ; 
fprintf (stderr, "%s\n", error_text) ; 
exit(l) ; 

); 

double *vector(int nl. int nh) ( 
double *v; 

v = (double *> -alloc ( (unsigned, <nh-nl + l) * sizeof (double) > ; 
if <!v) nrerrorCallocation failure in vector () > ; 
return v-nl; 

} 

void free.vector (double *v, int nl, int nh) ( 
free ((char *) (v+nl) ) ; 

} 

void ludcmp (double -a, int n. int *indx, double *d> ( 

int i, imax, j , 

double big, dum, sum, temp; 

double *w; 

vv = vector (0, n-D ; 
*d = 1.0; 

for (i=0; i<n; i++) ( 
big=0.0; 
for (j^O; j<n; 

if ( (temp=fabs(a[i]U])) > big) bxg=temp; LUDCMPM . 
if (big - 0.0) nrerrorr Singular matrix in routine LUDCMP ) , 

w[i] = 1.0/big; 

) 

for (j=0; j<n;j++) < 
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for (it=0;i<j;i++) ( 
sum = a[i] [ j] ; 

for (k=0;k<i;k++) sum -= a[i3 [k] *a [k] [j ] ; 
a[i][j] = sum; 

} 

big = 0.0; 

for (i=j;i<n/i++) ( 

sum = a[i] [j] ; 

for (k=0;k<j;k++) 

sum -= a[i] [k)*a[k] tj] ; 

a[i] [j] = sum; 

if ((dum = w[i]*fabs(sum)) >= big) ( 
big=dum; 
imax=i ; 

} 

} 

if (j != imax) { 

for (k=0; k<n; k++) { 
dum = a [imax] [k] ; 
a[imax] [k] = a[j] [k] ; 
a[jj [k] = dum; 

} 

*d = -<*d) ; 

w [ imax] =w [ j ] ; 

} 

indxtj]=imax; 

if (atjltjl ™ 0.0) aHHj] = TINY,- 
if (j != n) { 

dum = 1.0 / <a[j] tjl) ; - 

for (i = j+1; i<n; i++> a[i] [j] *= dum; 

) 

) 

f ree__vector ( w, 0 , n-1) ; 

} 

void lubksb<double **a, int n, int *indx, double b[]) ( 
int i, ii=-l, ip# 3? 
double sum; 

for (i=0; i<n; i++) { 
ip=indx(i] ; 
sum=b[ip] ; 
b[ip]=bti] ; 

for (j-ii; j<=i-^ ^ s ™ - = aIllI]I bl3l; 
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else if (sum) ii=i; 
b[i]=sum; 

) 

for (i=n-l; i>=0; i~> < 

sum = b [ i ) ; t . 

for (J-i+1, j <n; «» - aWbl^bbl; 

b[i]=sum/a[i] [il ; 

' } • 
} 

void invert (double **a. double **y, int n) { 
int *indx, i. j; 
double *col, d; 

indx = (int *) calloc(n. sizeof (int) ) ; 

col = (double *) calloc(n, sizeof (double) ) ; 

ludcmp(a, n, indx, &d) ; 

for (j=0; j < n? j++) { 

for (i=0; i < n; col[i)-0.0; 

col[j] = 1-0; 

lubksb(a, n, indx, col) ; 

for <i=0;i<n;i-M-) y[il [j] = colli]; 

) 

} 
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/* Fits a line to a set of points. Taken from Numerical Recipes i 
* p. 527. 
V 

extern "C" { 

#include <math.h> 
#include <stdio.h> 
#include <stdlib,h> 

} 

static double sqrarg; 

ttdefine SQR(a) (sqrarg=(a) , sqrarg* sqrarg) 
tfdefine ITMAX 100 
#define EPS 3.0e-7 



void nrerrorfchar error_text [ ] ) { 

/* Numerical Recipes standard error handler */ 

fprintf (stderr, "Numerical Recipes run-time error. \n" ) ; 

fprintf (stderr, "%s\n", error_text) ; 

exit(l); 

}; 

double gammlnf double xx) { 

/* Returns the value ln( floor (gamma (xx) ) > for xx > 0. Full accuracy is 
obtained for cc > 1. For 0 < xx < 1. the reflection formula can be 

used first. */ 

double x, tmp, ser; 

static double cof [6] = (76.18009173, -86.50532033, 24.01409822, 

-1.231739516, 0 . 12085B003e-2 , -0. 536382e-5} ; 

int j ; 

x = xx- 1.0; 

tmp = x + 5 . 5 ; 

tmp -= (x + 0.5} * log(tmp); 

ser = 1.0; 

for (j=0; j<=5; j++) ( 
x += 1.0; 
ser += cof[j]/x; 

} 

return -tmp + log (2 .50662827465 * ser) ; 

}; 

void gser(double *gamser, double a, double x, double *gln) { 

/* Returns the incomplete gamma function P(a, x) evaluated by its series 
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representation as gamser. Also returns In (gamma (a) ) as gin. V 
int n; 

double sum, del, ap; 

*gln = gammln(a); 
if (x <= 0.0) { 

if (x < 0.0) nrerrorCx less than 0 in GSER'); 

*gamser=0.0; 
return; 

} 

else { 
ap = a; 

del = sum ~ 1.0/a; 

for (n = 1; n <= ITMAX; n++) { 

ap += 1.0; 

del *= x/ap; 

sum += del; 

if (fabs(del) < fabs (sum) *EPS) { 

*gamser = sum * exp(-x + a * log(x) - (*gln)) ;. 
return; 

> 

nrerror("a too large. ITMAX too small in GSER"); 

} 

}; 

void gcf (double *gaicncf, double a, double x, double *gln) { 
/* Returns the incoinplete gamma function Q(a, x) evaluated by its continued 
fraction representation as garancf. Also returns ln(gaimna(a)) as gin. / 

int n; 

double gold = 0.0, g, fac = 1.0, bl = 1.0; 
double bO = 0.0, anf, ana, an, al, a0 = 1.0; 

*gln = gammln(a) ; 
al = x; 

for (n = 1; n <= ITMAX; n++) { 
an « (double) n; 
ana — an - a; 

a0 = (al + a0 * ana) * fac; 
b0 = (bl + b0 * ana) * fac; 
anf « an * fac; 
al = x * a0 + anf * al; 
bl = x * b0 + anf * bl; 
if (al) { 
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fac = 1.0/al; 
g = bl * fac; 

if (fabs((g-gold)/g) < EPS) ( 

<gammc£ = exp(-x + a * log(x) - <*gln))*g; 

return; 

} 

gold = g? 

) 

nrerror("a too large. ITMAX too small in routine GCF " ) ; 



>; 



double gammq (double a, double x) { 

/* Returns the incomplete gamma function Q(a, x) = 1 - P<a, x, 

double gamser, gammcf, gin; 

if (x < 0 0 II a <= 0.0) nrerrorC Invalid arguments in GAMMQ 
if (x < (a ♦ 1.0)) ( /* -e the series representation */ 

gser(&gamser, a, x, &gln) ; 

return 1.0 - ganger; /• and take its complement / 
^ lse ( y* use the continued fraction representation */ 

gcf (Scganuticf . a, x, &gln) ; 
return gammcf ; 

) 

}; 

void fit(double xU, double yU, int ^ta, double sigU int mwt, 
double *a. double *b, double *siga. double *sigb, 

double *chi2, double *q) ( standar d deviations 

/* Given a set of points xtl-.ndatal, yU-.ndata] with scan 

standard deviation on all points. */ 

*- nt " 1; « ^ n n = 0.0, ss, sigdat; 

double wt ( t, sxoss, sx = 0.0. sy = 0.0, st2 O.u, 



*b = 0.0; 
if (mwt) ( 
ss = 0.0; 

for (i«lf i <= ndata; ( 
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wt = 1.0/SQR(sig[i]); 

ss +~ wt; 

sx += x[i]*wt; 

S y += y [i] *wt; 

} 

}' 

else { 

for i <- ndata; i++) { 

sx += x[i] ; 
sy += y[i] ; 

) 

ss = ndata; 

sxoss - sx/ss; 
if (mwt) ( 

for (i=l; i < ndata; ( 

t = (x[i] - sxoss) /sigti] ; 

st2 += t*t; 

*b +- t * y[i] / sig[i] ; 

} 

} 

else { 

for (i=l; i <= ndata; i++) { 
t = x[i] - sxoss; 
st2 += t*t; 
*b += t*y[i] ; 

} 

} 

*b /= st2; 

*a = (sy-sx*(*b) )/ss; 

*siga = S qrt((1.0+sx*sx/(ss*st2) J/ssJ; 
*sigb = sqrt(1.0/st2) ; 
*chi2 = 0.0; 
if (mwt == 0) { 

for i <= ndata; i++) 

*chi2 += SQR(y[il-(*a)-(*b)*x[iJ); 

*q = 1.0; 
. sigdat « sqrt( (*chi2) / (ndata- 2) ) ; 

*siga *= sigdat; 

*sigb *= sigdat; 

} 

else { 

for (i=l; i <=ndata; 

*chi2 += SQR( (y[il-(*a)-(*b) *x[il) /sigti] ); 
*q = gaimnq(0.5 * (ndata - 2), 0 .5* (*chi2) ) ; 

) 
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mat-i-ix, one vector at a time, 

/* Multiplies four channel file by four x four 
to standard output. */ 



extern "C" { 

tinclude <stdio.h> 
tinclude <stdlib.h> 

} 

void roat ri X _vector_n l ultiply(double -matrix, double -vector. 

int n, double *result) { 
/* multiply nxn matrix by length n vector and put result in 
(already allocated) length n vector result */ 

int i , j ; 
double sum; 

for (i = 0; i < n; i++) ( 
sum = 0; 

for (j = 0; j < n; j++) ( 

sum += (matrixti] [jl * vector[j])j 

} 

result [i] = sum; 

} 

) 

void vector_matrix_multiply (double -matrix, double 'vector, 

int n, double *result) { 
multiply length n vector by nxn matrix by and put result in 
(already allocated) length n vector result / 

int i, j; 
double sum; 

for (j = 0; j < n; j++) < 
sum =0; 

for (i = 0; i < n; i++) ( 

sum + = (matrixti] (jl * vectorli]); 

) 

result [j] = sum -' 

) 

) 

nainCint argc, char **argv) ( 

if fprtn C tf(staerr. "Usage: %s <matrix *iU> <datafile> . argv [01 ); 
exit(l) ; 
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FILE *datafile, *matrixfile; 
matrixfile = fopen(argv[ll , T"); 



if ( 'matrixf ile) < file %s.\n" . argv[0], argv[l] ) ; 

fprintf (stderr, -%s: Can not open matrix fUe 



exit(l); 

} 

if (argc ==3) { 

datafile = f open(argv[2] . *r"); 

if £ ::fnS:«i:. «-.« — «•» «- M: 

exit(l); 

) 

} 

else datafile = stdin; 

double "matrix, *currve"c. 'result; 

int i , j ; 

matrix = (double ♦*> calloc(4. -^J*^ ]» ' 
currvec - (double *) calloc(4. ^f f^ ' 
result = (double *) calloc(4, sxzeof (double) ) . 

^xl"'' (i-ble calloc( 4 , sizeof (double) ) , 

for (i=0; i<4; 

fprintf (stderr, "%s: matrix txie *s 
exitd); 

} 

} 

f close (matrixf ile) ; 



/* 



printf ("Matrix: \n" ) ; 
for (i=0; i<4; i++> ( 
for (j=0; j<4; < 

printf <"%10f, matrixlillDl); 
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) 

FILE *datafile, *matrixfile; 
natrixfile = fopen(argv[l] , "r")J 



if (Imatrixfile) { ^ file %s .\n" , argv[01 . argv[lj ) ; 

fprint£(stderr, -%« Can not open matrix file 



exit(l) 

} 



if (argc == 3) { 

datafile = f open(argv[2] , "r"); 



if ( '.datafile) { ^ . argv(0], argv[2]); 

fprintf (stderr. -%s: Can-not open data file %s.\n 



exitd); 

) 

) 

else datafile = stdin; 

double -matrix, *currve-c. 'result; 

int i / 3 ; 

mtrix . (double «1 calloc(4, sizeoi J" ' 
currvec = (double *) calloc(4, sizeof (double ) , 
^suTt - (double *) calloc<4. sizeof (double) ) , 

for (i~0; i<4; 



for (i=0; i<4; 



exit(l) ; 

' ) 
) 

f close (matrixf ile) ; 



/* 

printf ('Matrix: \n")) 
for (i=0; i<4; i ++ > ( 
for (j=0; j<4; j++> t 

printf (-%10f. matrix! lib 1). 
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} 

printf ( " \n" ) ; 

) 

printf ("\n") ; 



while (fscanf(datafile, ,%l£%lf%l£% "'' tcurrveG[ 2] , & currvec[3] ) == 4) 
&currvec[0], fccurrvectU* tcurxve i i 
^atriK.vectcr.multiplylmatrix. currvec.*, result); 

printf C%10.6f %10-6f %10.6f " %10.6f\n . 
pr " v , „ , 1 1 -result 12 ] , result [ 3 J ) , 

result[0], resulttl]. resuici^j, 

} 

f close (datafile) ; 



exit(O) ; 
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> Contains member potions for vector class, as well a 
other auxiliary functions. */ 

#include "prototype.h" 

extern double currmin; 

^ anoint: =pri»t<*™ £• U^TU-t print «. •/ 
/* if flag is one, print tag, it 
fprintf(fp, "%8-Of". c); 
fprintf(fp, "%8.0f. t) j 
fprintf(fp, '%8.0f, a); 

fprint£(fp. -%8.0£". g) ■ 

. ^ • i.*/PT% «*8c" inttocall(tag) J « 
if (flag) fpnntf(fp» *« c • 

fprintf(fp, "\n">; 

c = cp; 
t = tp? 
a = ap; 
g = gp? 
tag = tg; 

} 

void vector : : print (FILE *fp) ( 
prev. print (fp) ; 
curr .print (fp) ; 

next. print (fp) ; , . 

fprintf(fp, -%3c%10.0f\n-. inttocall (tag) , »l. 

) 

void vector: :normali 2 e() { value ±s 100< arid set 

/* normalize all fluorescence values so 
max field to absolute max. */ 

aouble max!, max,. max3. max,, maxS, max*,- /* — *> 

round one - compare pairs of values •/ 
= (prev.c > Prev.a), P-.c = P-- 



^2= (prev.g > prev.t) ? prev.g : prev-t 
^3 - (curr.c > curr.a,? curr.c : curr a 
^4 = (curr.g > curr.t)? curr.g s curr.t. 



Lx'5 = inext.c > next.a)? next.c : next a; 
^6 = (next.g > next.t)? next.g « next.t, 
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./* round two - compare winners of round 1 */ 
roaxl = (maxl > max2)? maxl : max2; 
max2 = (max3 > max4)? max3 : max4; 
max3 = (max5 > max6)? max5 : roax6; 

/* round three - detenrdne largest winner of round 2 * 
maxl = (maxl > max2)? maxl : max2; 
roaxl = (maxl > max3}? maxl : max3; 
max = maxl; 

/* maxl is now max. Normalize values */ 
if (maxl != 0) { 

prev.c = (prev.c * 100.0) / maxl; 
prev.a = (prev.a * 100.0) / maxl; 
prev.g = (prev.g * 100.0) / maxl; 
prev.t = (prev.t * 100.0) /maxl; 
curr.c = <curr.c * 100.0) / maxl; 

curr.a = (curr.a * 100.0) / maxl; 

curr.g = (curr.g * 100.0) / maxl; 

curr.t = (curr.t * 100.0) / maxl; 

next.c = (next.c * 100.0) / maxl; 

next. a = (next. a * 100.0) / maxl; 

next.g = (next.g * 100.0) / maxl; 

next.t = (next.t * 100.0) / maxl; 

} 

) 

int iscalKint call) { 

/* determines whether a data line has been called / 
return* (call >= 0) && (call <= 4)); 

) 

int call toint (char call) ( 

/* converts character tag to int */ 
switch (call) ( 
case 'C: 

return 0; 
case 'A' : 

return 1; 
case 'G': 

return 2; 
case 'T' : 

return 3; 
case 'X' : 
default: 
return -1; 
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> 

} 

char inttocalKint tag) 
switch (tag) { 
case 0: 

return 'C; 
case 1: 

return 'A' ; 
case 2 : 

return 'Gr- 
ease 3 : 

return 'T' ; 

case -1: 
default: 

return ' . ' ; 

) 

} 



double vector: -.distance (vector * 



double dist, vmax, amax; 

if (vec->max <= 0) vmax = : 
else vmax = vec->max; 
if (this->max <= 0) amax - 
else amax = this->max; 



dist 




pow(vec->curr.t - this-: 



pow(vec->next.c - this->next.c, 2) + 




// 



return (dist) ; 
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int vector: :call(vector *prot> { 

/* determines tag of closest prototype / 

double disttNUMPROT]; 
int i; 

for (i=0; i < NOMPROT; i++) ( 

•dist[i] = prot til .distance (this); 

} 

,; npar min. Should change 
/* note: for coding purposes, use linear min. 

to log time min by pairing */ 
double min; 

/* go through array updating min as you go V 
min = dist[0] ; 

for (i = 1; i < NUMKKTC; < 
if {distil] < win) " distli]} 

} 

/* min is now minimum distance - determine call */ 
/* set currmin to this value */ 
currmin = min; 

// fprintf(stderr, "\n%15.0f mm); 
for (i = 0; i < NUMPROT; i++) I 
if (min == distli]) ( 
/* fprintf(stderr, 'Current vector: \n ); 

this->print() ; v„m • 

fprintf(stderr. -Closest prototype: \n ) . 

prot (i] -print () ; 
fprintftstderr, - <%d) i>J V 

return <i); 

} 

> 

/* default */ 
return (-1) ; 

} 

int avetimetocalKint prev, int curr) £ 
switch (4*prev + curr) { 
case 0: 
case 2 : 
case 6 : 

return 6; 
case 1 : 
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case 3 : 
case 4: 
case 5: 
case 7 : 
case 10: 
case 12: 
case 14: 
case 15: 

return 7; 
case 8: 
case 11: 
case 13 : 

return 8; 
case 9: 

return 9; 

} 

return 0; 

} 



void vector: :movetowards (vector -vec, double movefactor) ( 
/* move this towards vec by factor movefactor / 
prev.c + = (vec->prev.c : - prev.c) -movef actor ; 
prev.t += (vec->prev.t - prev.t) -movef actor; 
prev.a + = <vec->prev.a - prev.a) -movefactor; 
prev.g += (vec->prev.g - prev.g) -movefactor; 
curr.c += (vec->curr.c - curr. c) -movefactor; 
curr.t + = (vec->curr.t - curr.t) -movef actor; 
curr.a + = (vec->curr.a - curr .a) -movefactor; 
curr.g + = (vec->curr.g - curr. g) -movef actor; 
next.c + = <vec->next.c - next.c) -movefactor; 
next.t + = (vec->next.t - next.t) -movefactor; 
next. a += (vec->next.a - next. a) -movefactor; 
next.g + = (vec->next.g - next. g) -movefactor; 
max += <vec->max - max) -movef actor ; 



return; 

} 



void vector: : mo veaway (vector -vec, double movefactor) < 
/* move this away from vec by movefactor */ 
prev.c -= (vec->prev.c - prev.c) -movefactor; 

prev.t -= (vec-> P rev.t - prev.t) -movefactor; 

prev.a -= (vec->prev.a - prev.a) -movefactor; 

prev.g -= (vec->prev.g - prev.g) -movefactor; 

curr c -= (vec->curr.c - curr .c) -movefactor, 

curr't -= (vec->curr.t - curr.t) -movefactor; 
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curr. a -= (vec->curr.a 

curr.g -= (vec->curr.g 

next.c -= (vec->next.c 

next.t -= (vec->next.t 

next. a -= (vec->next.a 

next.g -= <vec->next.g 
max -= (vec->max - max) 

return; 



- curr . a) *movef actor ; 

- curr .g) *iuovef actor; 

- next . c ) *movef actor ; 

- next . t J *movef actor ; 

- next. a) *movef actor; 

- next.g) *movef actor; 
*movef actor; 
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,. Ee .as t*. off a fo Ur « tMg «a fu. -d t: na . .« 

there is one, is untagged file. Otherwis , 

fro, standard input. Writes to standard output. / 



extern { 

ttinclude <stdio.h> 
# include <stdlib.h> 



:nain(int argc, char **argv) { 

i£ f^r t£ ;iL. .„«.= te <«- — — oi " 

exit(l); 

} 

FILE 'taggedfile, *untaggedf ile; 
taggedfile = fopen(argv[l] . "r*):, 

tt ST,'j., <*» - — ^ M5V[01 - ar9Vtl " 

exit(l) ; 

} 

if (argc == 3) { 

untaggedfile - fopen (argv[2] , -r->; 

if (! untaggedfile) { , ie Vri p 

fprintf (stderr. •%.: Can not open untagged £xl. %..\» . 

argvtO] , argv[2]) ; 

exit(l); 

} 

} 

else untaggedfile » stdin; 

double c, a, g, t; 
char call [2] ; 

jrio „«.* lf %*if %*lf %*lf %ls", call) 1) kfk 
v,hile ((fscanf (taggedfile * If % W ^ ^ &g) } ( 

fscanf (untaggedfxle, *J-t * x 
printf C%10.6£ %10.6£ %10.6£ %10.6£ %c\n . 

c, t. a, g. call(O)); 

) 

fclose (taggedfile) ; 
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f close (untaggedfile) 
exit{0) ; 



} 
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#include "cluster. h M 

int main(int argc, char *argv[]) ( 

int time; /* current time */ 
int basenum^O; 

int timeofcall; /* time of last base call / 

int lastcall; /* last base call V 
int i; 

char ctag[2]; /* for reading tag character / 
double cmax, tmax, amax, gmax; 

FILE * datafile; 

if (argc == 1) datafile = stdin; 
else { 

if (! (datafile = fopen(argv[l] , "r ))) I 

fprintflstderr, "Can not open data file %s.\n", argvdl), 

exit(l) ; 

} 

} 

^ nl X f /* previous, current, and next data points 
datapoint prev, curr, next, / previuu 

double threshold = 0; 

int timesincetag = 0; 

double multiplier; 

... rnrr to first two time points */ 

fscanf (datafile, -%l£%lf%l£%lf%ls". 

&P rev.c, fcprev.t, fcprev.a, fcprev.g, ctag) ; 
prev. tag = calltoint (ctag[0] ) ; 
prev.c *= multiplier; 
prev.t *= multiplier; 
prev. a *= multiplier ; 
prev.g *= multiplier; 
fscanf {datafile, *%lf%lf%l£%lf*ls% 

Sccurr.c, tcurr.t, fccurr.a, fccurr.g, ctag); 
curr. tag = calltoint (ctag [0] ) ; 

timesincetag**; timesincetag* timesincetag) ; 

multiplier = .0204M14*timesincetag - txmes inc ecag 

curr.c *= multiplier; 
curr.t *= multiplier; 
curr. a *= multiplier; 
curr.g *= multiplier; 
time = 2; 
lastcall = 3; 
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timeofcall = 0; 

fprintf (stderr, "Reading file...\n-); 
while ((fscanf(datafile. -%lf %lf %l«lf%l«- ' 

inext.c, fcnext.t, fcnext.a, fcnext.g, ctag) ) 

!= EOF) { 

next. tag = calltoint<ctag[0] ) ; 

if (basenum == 0) threshold = 0.145; 
// if (basenum == 150). threshold = 0.065; 
// if (basenum == 300) threshold =0.06; 
// if (basenum == 450) threshold = 0.055; 
// if (basenum == 600) threshold =0.05; 

timesincetag++; timesincetag*timesincetag) ; 

multiplier = .0204* (14*timesincetag - timesincetag 

next.c *= multiplier; 
next.t *= multiplier; 
next. a *= multiplier; 
next.g *= multiplier; 

/. call accord » channel that i. highest of those chapels that 

cmax = ((curr.c >= prev.c) (curr.c 

CUrr -° : 0 '" M ~ (<i urr t > next.t) (curr.t > threshold))? 

tmax « {(curr.t >= prev.t) (curr.c 

curr.t : 0; {curr.a > threshold))? 

-\ rr /curr.a > next, a J i^uij..« 
amax = ((curr.a >= prev.a) && icurr.a 

curr.a : 0; fcurr.g > threshold))? 

grcax . ((curr.g >= prev.g) U (curr.g > next.g) * & (curr g 

curr,g : 0.; 

if «cmax>0> || (tmax>0) || (amax > °> H («-* >°> > < 
if ((basenum % 10) == 0) printfC "); 
if ((basenum % 40) == 0) printf ("\n") ; 

basenum++ ; 
timesincetag = 0; 
/* find largest max */ 
if (cmax > tmax) { 
if (cmax > amax) ( 
if (cmax > gmax) ( 

printf CC-); 
} else { 

printf (-G-); 

) 

} else { 

if (amax > gmax) ( 
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print f ("A") ? 
} else { 

printf ("G") ; 

} 

} 

} 

else { 

if (troax > amax) { 
if (tmax > gwax) < 

printf rT"); 
} else { 

printf ( "G" ) ; 

} 

} else { 

if (amax > gmax) { 

printf ( "A" ) ; 
} else { 

printf CG-) ; 

} 

} 

} 

] 

/* move to next time */ 
time++; 
prev - curr; 
curr = next; 

1 

printf C\n") ; 

f close (datafile) ; 
exit(O) ; 

} 
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#include "cluster .h' 

# define TAGFILE 0 ^ obfcained tags 

/* if nonzero, writes a new toy a 
define TAGGEDFILE 0 ^ character ta gs V 

/* if 1. expects input file to oe was 
Mefine FULLOUTPUT 0 ^ closest cluster 

/* if nonzero, prints out ui&u 

/* Call data by closest cluster. */ 

extern double currmin; 
extern int currcluster; 

int main(int argc. char *argv[]> ( 

■ int time=0; /* <*" ent time 7 ... . , 

int basenum-0; /* number of. bases called 

int timeofcall; /* time of last base call / 

-ii /* last base call / 

int i; 

FILE *datafile, *clusterf ile; 

if (argc < 2) { <c i ust er file> <data file>\n". argv[0]) 
fprintf(stderr, "Usage: %s <cluster 

exit(l) ;■ 

) 

if (Udusterfile = ^J^ 1 ^^ ^1. %sAn'. argvU]); 
fprintf (stderr. "Can not open cluster 

exit(l); 

} 

if (argc < 3) datafile = stdin; 

else { f 

•f 1 1 tAafRt ile = fopen(argvl2] , 1 l" 1 . 

4;^f*sS«, -ca» no, ope„ ^ «U« «*" 2 " ' 

exit(l); 

} 

) 

later fix to have only cluster averages and 
/* read in clusters - later, tut 

chec* for premature end of cluster^ */ 
cluster -clusttNUMCLUSTS]; /'clusters / 

cluster *rv; 
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/* read through, collecting calls */ 

for (i = 0; i < NUMCLUSTS; i++) { /* initialize */ 

if ((rv = (cluster *) walloc (sizeof (cluster) ) ) !* NULL) { 
clust[i] = rv; 

clust[i]->average. input (clusterfile) ; 

} 

else { 

£print£<stderr, "\nNot enough memory - Cluster %d\n , x) ; 
exit(l) ; 

} 

} 

datapoint threeprev, twoprev, twonext, threenext; 

datapoint prev, curr, next; /* previous, current, and next data po.nts 
vector vec; /* current vector */ 



char call; 

double twoprevmin = 0, prevmin = 0; 
int prevcluster; 
int prevcall = -1; 
double prewal = 1; 
int disttocall = 0; 

/* initialize threeprev through twonext to first six 

threeprev. input (datafile, TAGGEDFILE); 

twoprev. input (datafile, TAGGEDFILE); 

prev . input (datafile , TAGGEDFILE) ; 

curr . input (datafile , TAGGEDFILE) ; 

next . input (datafile , TAGGEDFILE) ; 

twonext • input (datafile , TAGGEDFILE) ; 

time = 2; 

lastcall = 0; 

lastcallval =1; 

timeofcall = 0; 



if (TAGFILE) { 

threeprev. tag = -1; 
twoprev. tag = -1? 
prev. tag = -1; 
curr -tag = -1; 
next. tag = -1; 
twonext. tag = -1; 

threeprev . print ( s tdout , 1 ) ; 



- 147 - 



WO 96/35810 



PCT/US96/06579 



twoprev . print ( s tdout , 1 ) ; 

} 

/* read through */ 

*f print f (stderr, "Calling data. \n\n" ) ; 

while <threenext.input(datafile, TAGGEDFILE) •« EOF) { 
/* determine closest cluster */ 
vec . threeprev = threeprev; 
vec. twoprev = twoprev; 
vec. prev = prev; 
vec.curr = curr; 
vec. next = next; 
vec.twonext = twonext; 
vec . threenext = threenext; 
vec. lastcall = lastcall ; 
vec. timetocall = time - tixneof call; 
vec. lastcallval = lastcallval; 
vec . normalize ( ) ; 
call = vec. call (clust) ; 

/♦ determine if distance at previous time point is a local minimum V 
if (FULLOUTPUT) printf ( ■ \n%8 .2f " , prevmin); 
if ((twoprevmin > prevmin) && (prevmin <= currmin) 
// && (prevmin < 300) 

&& (disttocall > (0.35*avedist (lastcall. prevcall, clust))) 

actual call - update call variables and print (Note: since distance 
must be a local minimum to call, won't ever have two adjacent calls, 
so if prev time is a call, the lastcall values at next time are those 
from prev time (i.e. current time can't be a call). */ 
lastcall = prevcall; 
timeofcall = time-1; 
lastcallval = prewal; 
basenum-n- ; 

if ( 1 TAGFILE) printf C%c«, inttocall (prevcall )) ; 

if (FULLOUTPUT && TAGGEDFILE ) printf (" [%c] - , inttocall (prev. tag) J ; 
prev. tag = prevcall; 

Trr-int-fr' 1 %4d" , timeof call-D ; 
if ("TAGFILE) && (basenum%79 == 0) && (..FULLOUTPUT,) printf C Xn« ) ; 

disttocall = 0; 

) 

else { 

if (FULLOUTPUT) printf ( " . " ) ; 

if (TAGGEDFILE « FULLOUTPUT, printf C [%c]-. inttocall (prev. tag) ) ; 
disttocall++; 

} 



// 
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if (FULLOUTPUT) printf ( " (%c%c) *, inttocall (clusterprevtag (prevcluster) 
inttocall(clustercurrtag(prevcluster) ) ) ; 

if (TAGFIIiE) prev. print (stdout, 1) ; 

7* move to next time */ 
time++; 

prevcall = call; 

prewal = curr . fluorescence ( call) ; 

threeprev = twoprev; 

twoprev = prev; 

prev = curr; 

curr = next; 

next = twonext; 

twonext = threenext; 

twoprevmin = prevmin; 

prevmin = currmin; 

prevcluster = currcluster; 

} 

printf ("\n M ) ; 

f close (datafile) ; 
exit{0) ; 

) 
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#include "cluster. h fl 

/* Call data by closest cluster. */ 

extern double currmin; 

int inain(int argc, char *argv[]) { 

int time=0; /* current time */ 

int basenum=0; /* number of bases called / 

int timeofcall; /* time of last base call */ 

int lastcall; /* last base call */ 

char ctag[2] , /* for reading tag character / 

FILE *datafile, *clusterf ile; 

exit(l) ; 

} 

if (i (clusterfile = fopen(argv[l), "r"))) < 

fprLtf(stderr. "Can not open cluster file %..Na-. argvUl). 

exit(l) ; 

} 

if (argc < 3) datafile = stdin; 

else { • . 

if {.(datafile = fopen(argv[2] , "r*))) I .„-,mi ■ 

fprintf (stderr. 'Can not open data file %s.\n". argv l2 J>, 

exit(l); 

} 

) 

* • , later fix to have only cluster averages and 

/* read in clusters - later, 

check for premature end of cluster file V 
cluster * clus t [ NUMCLUSTS ] ; /* clusters */ 
cluster *rv; 

/* read through, collecting calls */ 

for (i - 0- i < NUMCLUSTS; i++) I /* i^^lxze I 

if ((rv 1 (cluster *, .alloc (sizeof (cluster, ) » «- HULL, ( 

clustii] * rv; 

clustii] ->average . input (clusterfile) ; 

} 

else ( 
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fprintf (stderr, "\nNot enough memory - Cluster %d\n" , i) ; 
exit(l); 

} 

) 

datapoint threeprev, twoprev, twonext, threenext; 

. tiAvt- /* previous, current, and next data points / 

datapoint prev, curr, next, / previuu 0l 

/* current vector */ 
vector vec; 7 



char call; 

double twoprevmin = 0, prevmin = 0; 
int prevcall = -1, prevbase = 0; 
int disttocall = 0; 

/. initialize threeprev through twonext to first six time points */ 
fscanf (datafile. "%lf %lf %lf %lf%ls " - 

fcthreeprev.c, Ithreeprev.t, threeprev. a, fcthreeprev.g. ctag). 

threeprev. tag = calltoint (ctagtO] ) ; 

fscanf (datafile, -%lf%l£%l£%lf%l«". 

tt „oprev.c. fctwoprev.t, fctwoprev.a. fctwoprev.g, ctag). 

twoprev. tag = calltoinC.ictagtO] ) ; 
fscanf (datafile. -%l£%lf%lf%lf%ls". 

iprev.c. fcprev.t. &prev.a, &prev.g, ctag); 
prev. tag = calltoint(ctag[0] ) ; 
fscanf (datafile, -*lf%lf*l£%l£%ls-. 

&curr.c, fccurr.t, icurr.a, Sccurr.g. ctag); 
curr. tag = calltoint (ctag 1 0] ) ; 
fscanf (datafile, -%lf%l£%l£%l«ls- . 

inext.c, tewact.t, fcnext.a. &next.g. ctag); 
next . tag - calltoint (ctag [ 0 ]) ; 
fscanf (datafile, -%lf%lf%lf %lf %ls" . 

ttwonext.c. fctwonext.t. fctwonext.a. fctwonext.g, ctag), 

twonext.tag = calltoint (ctagtO] ) ; 
time = 2; 
lasccall = 0; 
timeofcall = 0; 

/* read through */ 

fprintf (stderr. "Calling data . \n\n" ) ; 
!= EOF) ( 

threenext.tag = calltoint (ctag 1 0] ) ; 
/• determine closest cluster */ 
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vec . threeprev = threeprev; 
vec.prev = prev; 
vec.curr = curr; 
vec. next = next; 
. vec . threenext = threenext; 
vec .tag = curr. tag; 
vec.lastcall = lastcall; 
vec.timetocall = time - timeofcall; 
vec * normalize ( ) ; 
call = vec. call ( clust) ; 

/* deterxtiine if distance is a local minimum */ 
/* printf (-\n%15.€f prevmin); */ 

if ( (twoprevmin > prevmin) && (prevmin <= currmin) 
// && (prevmin < 20000) 

&& (disttocall > <0.3S*avedist{prevbase, prevcall, clust))) 

){ 

lastcall = prevcall; 
timeofcall = time-1; 
basenum++; 

printf ("%c- , inttocall (prevcall) ) ; 
/ / printf ( " %4d\n" , timeof call-H ; 

disttocall = 0; 
prevbase = prevcall; 

} 

else { 
/* printf P."); */ 

disttocall++; 

) 

/* printf C [%<:]■, inttocall (prev. tag)); */ 

/* move to next time */ 
// if (basenum%79 == 1) printf (" W ) ; 
time++; 

threeprev = twoprev; 
twoprev = prev; 
prev = curr; 
curr = next; 
next = twonext ; 
twonext = threenext; 
prevcall = call; 
twoprevmin = prevmin; 
prevmin - currmin; 

} 



- 152 - 



WO 96/35810 



PCTAJS96/06579 



printf ( n \n*) ; 

f close (datafile) 
exit<0) ; 

} 



- 153 - 



WO 96/35810 



PCI7US96/06579 



, a ,- rd output. Reads from argument file 
/* Smooths out spikes. Writes to standard outp 

if there is one, otherwise reads from standard input. / 

extern "C" { 

# include <stdio.h> 
#include <stdlib,h> 
# include <math.h> 

} 

#include M cluster. h" 

main(int argc, char *argv(]) t 
FILE * infile; 

if (argc < 2) infile = stdin; 

else if {'(infile = f open(argv[l] , "r"))) { 

exit(l) ; 

} 

datapoint prev, curr, next; 

/* initialize prev and curr */ 
prev* input (infile) ; 

curr .input (infile) ; prev.g) ; 

printf(-%10.0f 110. Of %10.0£ %10.0fi\n". prev.c. prev.t, prev.a. 

while (next, input (infile) != EOF) { next c) > 20000) && 

if ((fabs(curr.c-prev.c) > 20000) H (fabs(curr.c-next.c) 
< fabs (next. c-prev. c) < 20000)) 

(fabs(next.t-prev.t) < 20000)) 

(fabs(next.a-prev.a) < 20000)) 

(fabs(next.g-prev.g) < 20000)) 

^^o^r.To^ «.c — 

prev = curr; 
curr = next; 

} 

printf(-%X0.0f %10.0f *10.0£ *10.0fNn-. next.c, next.t. next.a. next.g); 
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f close (infile) 
exit(0) ; 



} 
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B.^round subnotion. f« — ■ - ^ C ° 

current, current - «»» * ~ hese point3 

SMMMIH. end current to current ♦ nam. Fits ^ 

usrna ccae ft» p. 517 of »»er ^ ^ " ^ Currently ror £ our 
iSrSTS ren"^^.. read, _ - 
argument file, otherwise reads from standard input. 



extern -C" { 

#include <stdio.h> 
#include <stdlib.h> 
# include <math.h> 

} 

#include "linef it.h" 

#define SMALLWIN 50 
#define BIGWIN 100 

int bufsize - 0; ■ 

class entry { 
public: 
double val; 
int time; 
entry *prewal; 
entry *nextval; 
entry *prevtime; 
entry *nexttime; 

entry(double v - 0, int t - 0) (val - v; ta« = 

void init (double v - 0, int t - 0) (val - v; time - t.) 

}; 

class window { 

entry *lowval = NULL; 
entry *lowtime = NULL; 
entry *hightime = NULL; 
public: 
void insert (entry *) ; 
entry * clear lowt ime( ) ; 
void walkvalsO; 
void walktimeO ; 

double min() (return lowval->val; ) ; 
int mintimeO (return lowval->time; } ; 

); 
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class channel { 

s^llprevwin. b^rewin. «u«-n. 

int bigprevxnintime, smallprevmintime, smallnextmxntxme, 
int previndex, smallnext index, bignextmdex; 
int prevtime, smallnext time, bignexttime; 

double buf 12 *BIGWIN - 1]; 
void walkalltimes 0 ; 
void walkallvals ( ) ; 
void setallminsO ; 
void printallmins ( ) ; 
void timezeroO ; 
void firstphasestepO ; 
void secondphasestepO ; 
void mainphasestepO ; 
void endphaseonestepO ; 
void endphasetwostepO ; 
double fitcurrtimeO ; 
void subtract {); 

); 

class fourchannels { 
public : 
channel c, a, g, t; 
void buf init (FILE *) ; 
void timezeroO; 
void firstphaseO; 
void secondphase ( ) ; 
void mainphase{FILE *) ; 
void endphaseone ( ) ; 
void endphasetwoO ; 

}; 

void channel : : subtract { ) { 

♦ -^-ftin Of buf [previndex] - fitcurrtimeO); 
prxntf ("%10.0£ , DUtiyi . t background */ 

// print£(-%10.0£- ff f itcurrtxrue 0 ) ; /* To get bacKg 

) 

double channel: : f itcurrtime 0 { 
/ / walkalltimes O ; 

setallmins O ; 
/ / printallmins O ; 
// printf ("Fitting line: " ) ; 
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/* if all are equal, return that value */ 
if ((bigprevmintime « bignextmintime) « 

(smallprevmintime == smallnextmintxme) tt 

(bigprevmintime == smallprevmintime) ) 

// { printf Call points axe equal\n"}; 
,/ . printf( "Subtraction value at %d xs %.2f\n . 
H prevtime, bigprevmin); 

return (bigprevmin) ; 

} 

/* otherwise fit to a line */ ^ rt „ Me f sma llprevmintime) , 

double *xx = x-1; 
double *yy = y-ls 
double sig[4] ; 

double a, b, siga, sigb, chi2, q; 

fit (xx. yy. 4, sig. 0, *a, *b. -iga. .sigb. & chi2, *,) ; 

// printf Cy - %-2f + %.2£(x)\n-. M; 

/ printf (-Subtraction value at %d » %-2 fin . 
„ prevtime. a + b* (double (prevtune) ) ) , 

return (a + b* (double (prevtime) )) ; 

) 

void fourchannels::endphaseone() { 
int i; 

for (i = 0; i < SMALLWIN; i++) t 
c . endphaseones tep 0 ; 

printf (" "); 

t. endphaseones tep 0 ; 

printf (" "); 

a . endphaseones tep ( ) ; 

printf {" "); 
g.endphaseonestepO ; 

printf <"\n") ; 

} 

) 

void channel : : endphaseonestep ( ) < 
I* scroll off ends */ 
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entry *curr; 

s „u n to. ^ 10 " e " w £ot bi9ne "" in " 

curr = bigprevwin. clear lowtimeO; 
curr->init (buf [previndex] . prevtime) ; 
bigprevwin. insert (curr) ; 

curr = smallprevwin. clear lowtimeO; 
curr->init (buf [previndexl . prevtxme) ; 
smallprevwin . insert (curr) ; 

curr = smallnextwin.clearlowtimeO; 
cu r r->init (buf tsmallnextindex, , smallnextt a me> ; 

smallnextwin. insert (curr) ; 

curr = bignextwin.clearlowtimeO; 
delete curr; 

subtract () ; 

prevtime++ ; 
smallnexttime++; 

previndex = (previndex+1) %buf S ize; 
smallnextindex - (smallnextxnaex + l)%buf » M . 

} 

void fourchannels::endphasetwo() ( 
int i; 

for <i = SMALLWIN ; i < BIGWIN - 1, i«) t 
c . endphasetwos tep ( ) ; 

printf T ")T 

t . endphasetwos tep ( ) ; 

printf ( M "); 

a . endphasetwos tep < ) ; 

printf ( * " ) ' 
g.endphasetwostepO ; 

printf (-\n-)s 

) 

) 

void channel s s endphasetwos tep ( ) { 
entry *curr; 

scroll previous windows, drop low entry for nextwindows *, 
curr = bigprevwin.clearlowtimeO; 



- 159 - 



WO 96735810 



PCT/US96/06579 



curr->init (buf (previndex] , prevtime) ; 
bigprevwin . insert (curr ) ; 

curr = smallprevwin.clearlowtimeO; 
curr^init (buf tprevindex] , prevtime) ; 
smallprevwin. insert (curr) ; 

curr = smallnextwin . clear lowtime {); 
delete curr; 

curr - bignextwin.clearlowtineO; 
delete curr; 

subtract ( } ; 

prevtime++ ; 

previndex = <previndex + l) %buf size; 

) 

void fourchannels::mainphase(FILE Unfile) { 

int i; 

entry *curr; 

o full - continue moving current time forward V 
/* all windows are full - conuinu 

. while ((fscanf Unfile, -%lf *lf %" * lf " ' [t.bignext index ] , 

/* scroll all windows */ 
c.mainphasestepO ? 

printfC "); 

t .mainphasestep ( ) ; 

printfl" •); 
a.mainphasestepO ; 

printfC 

g.mainphasestepO ; 
printf ( " \n- ) ; 

} 

} 

void channel : :mainphasestep ( ) { 
int i? 

entry *curr; 

/* scroll all windows */ 
curr = bigprevwin.clearlowtimeO ; 
curr->init (buf tprevindex] , prevtime) ; 
bigprevwin . insert ( curr) ; 
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curr = smallprevwin. clear lowtirae () ; 
curr->ihit (buf [previndex] , prevtiiae) ,* 
smallprevwin. insert (curr) ; 

curr = smallnextwin. clear lowtime(); 
curr->init (buf [smallnextindex] , smallnexttime) ; 
smallnextwin. insert (curr) ; 

curr = bignextwin.clearlowtimeO ; 
curr->init (buf [bignext index] , bignexttime) ; 
bignextwin. insert (curr) ; 

subtract ( ) ; 

previndex = (previndex+1) %buf size; 
smallnextindex - ( sma llnext index* 1) %buf size; 
bignextindex « . (bignext index+l)%buf size ; 
prevtime++ ; 
smal lnext t ime+ + ; 
bignexttixcie++ ; 

} 

void fourchannels: : secondphase ( ) { 
int i; 

for (i = BIGWIN + SMALLWIN - 1; i < 2*BIGWIN - 1; i* + > t 
c . secondphasestep ( ) ; 
printfC •); 
t . secondphasestep ( ) ; 

printfr 

a. secondphasestep ( ) ; 

printf ( " * ) ; 

g . secondphasestep ( ) ; 

printf ("Nn")-; 

} 

} 

void channel : : secondphasestep { ) { 
entry *curr; 

/• bigprevwin is still not full - continue moving current time forward 
/* insert into bigprev window, scroll other windows V 
curr = new entry (buf (previndex] , prevtime) ; 
bigprevwin . insert ( curr ) ; 
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curr = smallprevwin.clearlowtimeO; 
curr->init (buf [previndex] , prevtime) ; 
smallprevwin. insert (curr) ; 

curr = smallnextwin. clear lowtimeO; 
curr->init (buf t smallnextindex] , smallnexttime) ; 
smallnextwin. insert (curr) ; 

curr = bignextwin.clearlowtimeO ; 
CU rr->init(buf[bignextindex], bignexttime) ; 
bignextwin . insert (curr) ; 

subtract () ; 

previndex = (previndex + l)%bufsize; 
smallnextindex = (smallnextindex + l)%buf S ize; 
bignextindex = (bignextindex + l)%bufsize; 

prevtime++ ; 
smallnexttime++; . 
bignexttime++; 

} 

void ^~* a - elS --;^ haV€ incomP lete prev windows V 

/* move current time forward - stzi-L 

int i; 

for (i « BIGWIN; i < BIGWIN + SMALLWIN - 1; { 

c . f irstphasestep { ) ; 

printff "); 

t . f irstphasestep ( ) ; 

prinfcf ( " • ) ; 

a . f irstphasestep ( > ; 

printf( M *); 

g . f irstphasestep ( ) ; 

printf ( "\n" ) ; 

) 

} 

void channel: : f irstphasestep () ( 
entry *curr; 

/. insert into previous windows, scroll next windows •/ 
curr = new entry (buf [previndex] . prevtime); 
bigprevwin . insert ( curr ) ; 

curr = new entry (buf [previndex] , prevtime); 
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smallprevwin. insert (curr) ; 

curr = smallnextwin.clearlowtimeO ; 

curr->init (buf [smallnextindex] , smallnexttime) ; 

s.mallnextwin. insert (curr) ; 

curr = bignextwin. clearlowtime () ; 
curr->init (buf [bignextindex] , bignexttime) ; 
bignextwin. insert (curr) ; 

subtract ( ) ; 

previndex = (previndex+1) %buf size; 
smallnextindex = (smallnextindex+1) %buf size; 
bignextindex = (bignext index* 1) %buf size; 
prevtime++ ; 
smal lnext time++ ; 
bignexttime++ ; 

} 

void channel : : timezero ( ) { 
entry *curr; 

/* initialize to current time 0 */ 
previndex = prevtime = 0; 
smallnextindex = smallnexttime = 0; 
bignextindex = bignexttime = 0; 

/* insert entry 0 into all windows */ 

curr = new entry (buf [previndex] , previndex); 

bigpr evwin . ins er t ( curr ) ; 

curr = new entry (buf [previndex] , previndex); 
smallprevwin. insert (curr) ; 

curr « new entry (buf [smallnextindex] , smallnextindex) 
smallnextwin. insert (curr) ; 

curr = new entry (buf [bignextindex] , bignextindex) ; 
bignextwin - insert ( curr) ; 

previndex = (previndex+1) %buf size ; 
smallnextindex * < smal lnext index* 1) %buf size; 
bignextindex = ( bignextindex* 1) %buf size; 
prevtime** ; 
smallnexttime** ; 
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bignexttime++; 
int i; 

for (i = 1; i < SMALLWIN; i++) ( 
' /* insert into smallnextwin and bignextwin*/ 
curr = new. entry (buf [smallnext index] , smallnextindex) ; 
smallnextwin. insert (curr ) ; 

curr = new entry (buf [bignext index] , bignextindex); 
bignextwin . insert ( curr) ; 

smallnextindex = ( smallnextindex + l)%bu£size; 
bignextindex = ( bignext index+1) %bufsize; 
smallnexttime++; 
bignext time++; 

} 

for (i = SMMjLWIN ; i < BIGWIN; 1++) ( 
/* insert into bignextwin */ 

curr = new entry (buf [bignextindex] , bignextindex) ; 
bignextwin. insert (curr) ; 

bignextindex = (bignext index* 1) %buf size; 
bignext time++; 

} 

subtract ( ) ; 

) 

void f ourchannels : : timezero ( ) { 
c. timezeroO ; 
printf ( " * ) ; 
t , timezero ( ) ; 
printf < M "); 
a . timezero ( ) ; 
printf ( " ' ) ? 
g. timezeroO ; 
printf ("\n") ; 

) 

void fourchannels::bufinit(FILE Unfile) ( 
/* read in buffers */ 
while ((bufsize < 2*BIGWIN - 1) && 

(fscanf Unfile, -%1£ %1£ ' < 

&c. buf [buf size], &t .buf [buf size] , 

&a buf (bufsize], &g. buf [buf size] ) EOF) ) 
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buf size++; 



if (buf size < 2*BIGWIN - 1) ( ^ ^ # BlfflnH) , 

fprintf (stderr. "Input too short for winao 

•exit(l); 

) 

} 

void window:: insert (entry *e) { 
entry *p? 

/* insert in value list */ 
p = lowval ; 

U (P =- MLL) < /• "« » " fit6t elment 

e->prewal = NULL; 
e->nextval = NULL; 
lowval = e; 

"while «P->val < e->val) && ' = 

if (e->val <= p->val)M /* insert before p / 
e->prewal = p->prewal; 
p->prewal = e; 

e->nextval = p; ,_„■, . _ p . 

if (e ->prewal != NULL) e->prewal->nextval 

if (e ->val <= lowval->val) lowval = e; 

ilse ( /* reached end of list - insert at end V 

e->prewal = p; 
p->nextval = e; 
e->nextval = NULL; 

} 

) 

/* insert in time list */ fi t element */ 

tmttttV f /* list xs empty - maice eaj.* 
if (lowtime == NULL) 1 f 

e->prevtime = NULL; 

e->nexttime = NULL; 

lowtime - e; 

hightime = e; 

} 

else { 

e->nexttime = NULL; 
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hightime = e; 

} 

}; 



entry window: :clearlowtime() { ^ 
/* removes low time entry from the list, 

to entry for reuse */ 
entry *temp; 



temp = lowtime ; 



T m 



if (temp->prewal != NOLL) 
return (temp) ; 

}; 

void window: :walkvals () ( : 
entry *temp = lowval; 

while (temp != NOLL) { 

printf C%. Of ". temp->val); 
temp = temp->nextval; 

) 

printf ("\n") ; 

}; 

void window : : walktime ( ) ( 
entry *temp = lowtime; 

while (temp ! = NOLL) ( 

printf ("%. Of temp->val); 
temp = temp->nexttime; 

) 

printf ("\n") ; 

); 

void channel: :walkalltimes() { 

bigprevwin . walktime ( ) ; 
smallprevwin.walktimeO ; 

smallnextwin.wallctime() < 
bignextwin .walktime ( ) ; 
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print f ("\n") ; 

} 

void channel: :walkallvals() { 
bigprevwin .walkvals { ) ; 
smallprevwin. walkvals {) ; 
smallnextwin. walkvals { ) ; 
bignextwin .walkvals { ) ; 
printf ("\n") ; 

} 

void channel : : setallmins ( ) { 
bigprevmin = bigprevwin.minO ; 
smallprevrain = smallprevwin.min( ) ; 
smallnextmin - smallnextwin,min{ ) ; 
bignextmin = bignextwin.rainO ; 
bigprevmintime = bigprevwin. mint ime{ ) ; 
smallprevmintime = smallprevwin.mintime ( ) ; 
smallnextmintime = smallnextwin.mintime< ) ; 
bignextmintime = bignextwin. mint ime( ) ; 

} 

void channel: :printallmins() { 

printf ("NnMins: <%d, %.0f) (%d. %-0f) (%d. %.0f> <%d. %.0£ > \n , 

" bigprevmintime, bigprevmin, smallprevmintime, smallprevmxn 

smSlnextmintime, smallnextmin, bignextminta^e , bxgnextmm) 

} 

main(int argc, char *argv[]) { 
FILE *infile; 

// malloc_debug(8) ; 

,* read from standard input if no arguments, otherwise read from 

argument file */ 
if (argc < 2) infiile = stain; 

else if (! Unfile = fopen(argvll] . "r"))) I ■ 
fpriLf(stderr, -f: can not open file %.Xn-. argvtO] . «yv[l]> , 

exit (1) ; 

} 

entry *curr; 
fourchannels chan; 

chan.bufinit(inf ile) ; 
chan. timezeroO ; 
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chan.f irstphaseO ; 
chan . secondphase ( ) ; 
chan.mainphase(infile) ; 
chan . endphaseone ( ) ; 
chan . endphasetwo ( ) ; 

fclose(inf ile) ; 
exit(O); 

} 
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. -- rtT1 Takes four minima: current - 200 to current - 100, 
Background subtraction. Takes fo ^ + ±qq ^ 

current + 200^ Fits 1 Une at tKe current point 

of Numerical Recipes n C. Eval ^ 

. and subtracts that value reads from standa rd input, 
reads input from argument file, otnerwi 



extern "C" { 
' #include <stdio.h> 

#include <stdlib.h> 

#include <math.h> 

} 

^include <linefit,h> 

8def ine WINSIZE 50 

class entry { 
public: 
double val; 
int time; 
entry *prewal; 
entry *nextval; 
entry *prevtime; 

entry * next time; , 
* - - - int t = 0) {val = v; time = t;}, 



entry(double v = 0, int t = u, wax - , 

• *.»-- n\ /val = v; time = t , j , 
void init (double v = 0, mt t - 0) (val 



}; 



class window ( 

entry * lowval - NULL; 
entry * low time - NULL; 
entry *hightime = NULL; 
public : 
void insert (entry *); 
entry *clearlowtime() ; 
void walkvals ( ) ; 
void walktime ( ) ; 

double min ( ) { return lowval ->val ; ) ; 
. int mintimeO (return lowval ->time; } ; 

}; 



class channel ( 
public: 

'window closeprevwin, farprevwin 



Prt> lic: 4w closenextwin, farnextwin; 
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double buf [-4*WINSIZE - 11; 
int buf size = 0; 
void walkalltimesO ; 
void walkallvals { ) ; 
void setallmins ( ) ; 
void printallminsO ; 
void buf init (FILE *) ; 
void timezeroO; 
void firstphaseO ; 
void secondphase ( ) ; 
void mainphase(FILE *) ; 
void endphase ( ) ; 
double fitcurrtime ( ) ; 
void subtract ( 1 ; 

); 



void channel: : subtract () ( _ £itcurrtljlie() , . 

printf ("%.0fYn-. buf [closeprevindex] background */ 

// printf (*%. Of \n<\ f itcurrtzme ( ) ) ; / To gee d 



) 



double channel: ; f itcurrtime ( ) { 
/ / walkalltimes ( ) ; 

setallmins ( ) ; 
/ / printallmins ( ) ; 
/ / printf ( -Fitting line : " ) ; 

/* if all are equal, return that value V 
if ((farprevmintime « f arnextmintime) 

(closeprevmintime ~ closenextmintime) 
(farprevmintime « closeprevmintime) ) 

printf ("all points are equal\n«); ^ 
printf ("Subtraction value at %d is %.2f\n 
farprevtime, f arprevmin) ; 
return ( f arprevmin) ; 



// 
// 



} 



/* otherwise fit to a line */ (clos eprevmintime) , 
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double y[4) = {farprevmin, closeprevmin, closenextinin, farnextmin) ; 
double *xx = x-1; 
double *yy = y-1; 
double sig[4] ; 

double a, b, siga, sigb, chi2, q; 

fit (xx, yy, 4, sig, 0, &a, &b, &siga, fcsigb, &chi2, &q) ; 

// printfCy * %.2f + %.2f(x)\n", a, b) ; 
// print f ("Subtraction value at %d is %.2f\n", 
/ / closeprevtime , a + b* (double (closeprevtime) ) ) ; 

return (a + b* (double (closeprevtime) )) ; 

} 

void channel : : endphase { ) { 
/* scroll off ends */ 
int i; 

entry *curr; 

for (i = 0; i < WINSIZE; i++> ( 
/* scroll all but farnextwin */ 
curr = farprevwin. clearlowtime <) ; 
curr->init (buf ( f arprevindex] , f arprevtime) ; 
farprevwin. insert (curr) ; 

curr = closeprevwin.clearlowtimeO ; 
curr->init (buf [closeprevindex] , closeprevtime) ; 
closeprevwin . insert (curr) ; 

curr = closenextwin. clearlowtime () ; 
curr->init (buf [clos.enext index] , closenexttime) ; 
closenextwin. insert (curr) ; 



subtract { ) ; 

f arprevtime ++ ; 
closeprevt ime++ ; 
closenexttime++ ; 

f arprevindex = ( f arprevindex* 1 ) %buf size; 
closeprevindex = (closeprevindex* 1) %buf size; 
closenextindex = (closenextindex + l)%bufsize; 

} 

for (i = 1; i < WINSIZE; ( 

/* scroll previous windows, drop low entry for nextwindows */ 
curr = farprevwin •clearlowtimeO ; 
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curr->init (buf t farprevindexj , f arprevtime) ; 
farprevwin. insert (curr) ; 

curr = closeprevwin.clearlowtimeO ; 
curr->init (buf [closeprevindex] , closeprevtime) ; 
closeprevwin. insert (curr) ; 

curr = closenextwin.clearlowtimeO; 
delete curr; 

curr = famextwin. clear lowtimeO; 
delete curr; 

subtract ( } ; 



f arprevtime++ ; 
closeprevtime++ ; 

farprevindex = <farprevindex + l) %buf size; 
closeprevindex = <closeprevindex + l) %buf size; 



} 



} 



void channel: :mainphase(FI£E *infile) ( 
int i; 

entry *curr; 

/. all windows are full - continue moving current time forward V 
while ((fscanf Unfile. sbuf [ f amextindex] ) == D ) < 

/* scroll all windows */ 
curr _ farprevwin.clearlowtimeO; 
curr->init (buf C farprevindex] . £ arprevtime) ; 
farprevwin. insert (curr) ; 

curr = closeprevwin. clearlowtimeO; 
curr->init (buf [closeprevindex] . closeprevtime) ; 
closeprevwin. insert (curr) ; 

curr = closenextwin.clearlowtimeO; 
curr->init(buf(closenextindex], closenexttime) ; 

closenextwin . insert ( curr ) ; 

curr = farnextwin. clearlowtimeO ; 
curr->init(buf [famextindex] . farnexttime) ; 
f amextwin . ins ert ( curr ) ; 

subtract ( ) ; 
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farprevindex = (f arprevindex+1) %buf size; 
closeprevindex = (closeprevindex+1) %buf size; 
closenextindex = (closenextindex+1) %bufsize ; 
farnextindex = (f arnextindex+1) %buf size; 
farprevtime++; 
closeprevtime++ ; 
closenexttime++ ; 
f arnexttime++ ; 

} 

} 

void channel : : secondphase { ) { 
int i; 

entry *curr; 

for (i = 0; i < WINSIZE; i++) { 

/* leave farprev window alone, scroll other windows */ 

curr = closeprevwin. clear lowtime( ) ; 

curr->init (buf [closeprevindex] , closeprevtime) ; 

closeprevwin. insert (curr) ; 

curr = clos enex twin. clear lowtime{ ) ; 

curr->init (buf [closenextindex] , closenexttime) ; 

closenextwin. insert (curr) ; 

curr = farnextwin.clearlowtimeO ; 
curr->init (buf [farnextindex] , farnexttime) ; 
farnextwin. insert (curr) ; 

subtract ( ) ; 

closeprevindex = ( closeprevindex+1 } %buf size ; 
closenextindex = (closenextindex+1) %buf size; 
farnextindex = (f arnextindex+1) %buf size ; 
closeprevtime++ ; 
closenexttime++ ; 
f arnexttime++ ; 

} 

} 

void channel: : f irstphase ( ) { 

/* move current time forward - still have incomplete prev windows */ 

int i; 

entry *curr; 
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for (i = 1; i < WINSIZE; ( t 

/* insert into previous windows, scroll next windows 
curr = new entry (buf If arprevindex] , farprevtime) ; 
farprevwin. insert (curr) ; 

curr = new entry (buf [closeprevindex] . closeprevtime) ; 
closeprevwin. insert (curr) ; 

curr = closenextwin-clearlowtimeO ; 
curr->init (buf [closenextindex] , closenexttime) ; 
closenextwin. insert (curr) ; 

curr _ farnextwin. clear lowtimeO ; 
curr->init (buf [f amextindexl , f arnexttime) ; 
farnextwin . insert (curr) ; 

subtract () ; 

f arprevindex = (£ arprevindex+1) %bufsize; 
closeprevindex = (closeprevindex + l)%bufsi 2 e; 
closenextindex = ( C losenextindex + l)%bufsize; 
fanxextindex = (f arnextindex + l) %bufsize; 

£arprevtime++; 
closeprevtime++ ; 
closenexttime++ ; 
farnexttime++; 

} 

} 

void channel : : timezero ( ) { 
entry *curr; 

/* initialize to current time 0 */ 
f arprevindex = farprevtime = 0; 
closeprevindex = closeprevtime = 0; 
closenextindex = closenexttime = 0; 
famextindex - f arnexttime = WINSIZE; 

/* insert entry 0 into prev windows */ 

curr - new entry ( buf [f arprevindex] , farprevxndex} ; 

farprevwin . insert (curr ) ; 

curr = new entry (buf t closeprevindex] . closeprevindex) 

closeprevwin . insert ( curr) ; 

farprevindex = (farprevindex + l)%buf size; 
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closeprevindex = (closeprevindex+1) %buf size; 

farprevtime++; 

closeprevtime++ ; 

int i; 

/* fill next windows */ 

for (i = 0; i < WINSIZE; i++) { 

/* insert into closenextwin and farnextwin*/ 

curr = new entry (buf [closenextindex] , closenext index) ; 

closenextwin • insert (curr) ; 

curr = new entry (buf [farnext index ] , f arnext index ) ; 
farnextwin. insert (curr) ; 

closenextindex = ( closenext index+1) %bufsize; 
. f arnextindex = (f arnext index+1) %buf size; 
closenexttime++ ; 
f arnext time ++ ; 

) 

subtract ( ) ; 

} 

void channel: : buf init ( FILE *infile) { 
/* read in buffer */ 
while ((bufsize < 4*WINSIZE - 1) && 

(fscanf Unfile, "%lf\ &buf [buf size] ) == 1)) 
bufsize++; 

if (bufsize < 4*WINSIZE - 1) { 

fprintf (stderr, "Input too short for window size %d\n M , WINSIZE); 
exit(l) ; 

} 

) 

void window: : insert (entry *e) { 
entry *p; 

/* insert in value list */ 
p = lowval ; 

if (p == NULL) { /* list is empty - make first element V 
e->prewal = NULL; 
e->nextval = NULL; 
lowval = e; 
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) 

elSS ^ , i \ tjt fr^nextval '= NULL)) p = p->nextval; 

while ( (p->val < e->val) (p->nexcvax . «uu f 

if {e->val <= p->val) { /* insert before p */ 

e->prewal = p->prewal; 

p->prewal = e; 

e->nextval = p; 

if • (e->prewal != NULL) e->prewal->nextval = e; 
if (e->val <= lowval->val) lowval = e; 

else { /* reached end of list - insert at end */ 
e->prewal = p; 
p->nextval = e; 
e->nextval = NULL; 

} 

} 

/* insert in time list */ 

if (lowtime == NULL) { /* list is empty. - make first element / 
e->prevtime = NULL; 
e->nexttime = NULL; 
lowtime = e; 
hightime = e; 

} 

else C 

e->prevtime = hightime; 

if (e->prevtime != NULL) e->prevtime->nexttime - e; 
e->nexttime = NULL; 
hightime = e; 

} 

}; 

entry *window: -.clear lowtime {) { 

/• removes low time entry from the list, returns pointer 

to entry for reuse */ 
entry *temp; 

temp = lowtime; 

if (lowtime — NULL) return NULL; 
if {lowval == lowtime) lowval = lowval->nextval ; 
if (hightime == lowtime) hightime = NULL; 
lowtime = lowtime->nexttime; 

if (lowtime I- NULL) lowtime- >prevtime = NULL; 

if (temp->nextval != NULL) temp->nextval->prewal = temp->prevval ; 
if (temp->prewal l- NULL) temp->prewal->nextval = temp->nextval ; 



- 176 - 



WO 96/35810 



return (temp) ; 

); 

void window: :walkvals() { 
entry *temp = lowval; 

while (temp != NOLL) { 

print£("%.0f temp->val)-; 
temp = temp->nextval; 

) 

printf ("Vft") ; 

); 

void window: :walktime{) I 
entry *temp = lowtime; 

while {temp != NULL) { 

printf <"%• Of ", temp->val); 
temp = temp->nexttime; 

} 

printf ( " \n" ) ; 

}; 

void channel: twalkalltimesO { 

f arprevwin . walktime { ) ; 
closeprevwin. walktime {) ; 
closenextwin.walktimeO ; 
farnextwin.walktimeO ; 
printf ("\n") ; 

)• 

void channel : : walkallvals < ) { 
f arprevwin . walkvals ( ) ; 
closeprevwin.walkvalsO ; 
closenextwin.walkvalsO ; 
farnextwin.walkvalsO ; 
printf ("\n") ; 

) 

void channel : : setallmins ( ) I 
farprevmin = f arprevwin. mint) ; 
closeprevmin = closeprevwin.ndnO ; 
closenextmin * closenextwin.roinO ; 
f amextndn = f arnextwin.min ( ) ; 
farprevmintime = farprevwin.mintimeO ; 
closeprevmintime = closeprevwin. mintimeO ; 
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closenextmintime = c losenex twin. mint ime () ; 
farnextmintime = f arnex twin. mint ime() ; 

} 

void channel : : printallmins ( ) { 

printf("\nMins: <%d, %.0f) (%d, %.0f) (%d, %.0f) (%d, %.0f)\n-, 

farprevmintime, farprevmin, closeprevmintime, closeprevmin, 
closenextaiintime, closenextmin, famextmintime, farnextmin) ; 

} 

main { int ar gc , char * ar gv [ ] ) { 
FILE * infile; 

/ / malloc_debug { 8 ) ; 

/* read from standard input if no arguments, otherwise read from 

argument file */. 
if (argc < 2) infile = stdin; 
else if (1 (infile = fopen(argv[l] , V])) { 

fprintf (stderr, "%s: can not open file %s\n", argvfO] , argv[l]); 

exit(l) ; 

} 

entry *curr; 
channel c; 

c.bufinit (infile) ; 
c . timezero ( ) ; 
c. f irstphaseO ; 
c . secondphase ( ) ; 
c.mainphase( infile) ; 
c . endphase ( } ; 

f close ( infile) ; 

exit (0) ; 

} 
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/* Contains member functions for cluster and vector classes, as well as 
other auxilliary functions. */ 

#include "cluster. h" 

extern double currmin; 
extern int currcluster; 

int round (double x) { 

return { (x - int(x) > .5) ? (int(x)+l) : int(x)); 

} 

void datapoint: : print (FILE *fp, int flag) { 

/* if flag is one, print tag; if zero don't print tag */ 
fprintf(fp, "%10.6f c); 
fprintf(fp, "%10.6f "', t) ; 
fprintf(fp, "%10.6f a) ; 
fprintfffp, "%10.6f, g) ; 

if (flag) fprintf(fp, "%6c", inttocall ( tag) ) ; 
fprintf(fp, H \n-); 

) 

void vector: : print (FILE *fp) { 
thr eepr ev . print ( f p ) ; 
twopr ev . print ( f p ) ; 
prev . print ( f p ) ; 
cur r. print (fp) ; 
next. pr int (fp) ; 
twonext . print ( f p ) ; 
threenext. print (fp) ; 

fprintf (fp, -%3d %5.1f %10.6f %10.6f %10.6f %10.6f %3d\n", 

lastcall', timetocall, lastcallval, max, twoprevmax, twonextmax, 
tag) ; 

) 

int datapoint: : input (FILE *fp, int flag) { 

/* read in from file. If flag is 0, don't look for tag. Sets all negative 

values to 0. If flag is 1, looks for alphabetic tags, if 2, looks for 

numeric tags. */ 
int rv; 
char ctag[2] ; 

rv = fscanf(fp, "%lf %lf %lf %lf " * * c < &a ' & 9> ; 
if ((flag == 1) && (rv != EOF)) { 

rv = fscanf(fp, ^ls", ctag) ; 

tag = calltoint(ctagtOJ) ; 
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if ((flag == 2) && (rv ! = EOF)) rv = fscanf(fp, "%d-, &tag) ; 
if (flag == 0) tag = -1; 



if (c < 0) c = 0 

if (t < 0) t = 0 

if (a < 0) a = 0 

if. (g < 0) g = 0 



return rv; 

} 

double datapoint: -.fluorescence (int tag) { 
switch (tag) { 
case 0: 

return c; 

break; 
case 1: 

return t; 

break; 
case 2 : 

return a; 

break; 
case 3 : 

return g; 

break? 
default: 

return 0; 

break; 

} 

} 

void vector ; : input ( FILE * f p) C 
/* read in from file */ 
threeprev . input ( f p) ; 
twoprev . input ( f p ) ; 
prev . input ( f p ) ; 
curr .input (fp) ; 
next . input ( f p) ; 
twonext . input ( f p) ; 
threenext . input ( f p) ; 

fscanf (fp, -%d %lf %lf %" %" %lf %dXn "' 

fclastcall, ttimetocall, tlastcallval, 
fitmax, &twoprevmax, fctwonextmax, &tag) ; 

) 
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void vector: : normalize () { 

/* normalize all fluorescence values so that max value is 100, and set 
max field to absolute max. */ 

double maxl, max2 / max3 , max4, max5, max 6, max7, max8, max9, maxlO; 
/* quick hack! */ 

/* round one - compare pairs of values */ 

maxl « (prev.c > prev.a)? prev.c : prev.a; 

max2 = (prev.g > prev.t)? prev.g ; prev.t; 

max3 = (curr.c > curr.a)? curr.c : curr.a; 

max4 = (curr.g > curr.t)? curr.g : curr.t; 

max5 s= (next.c > next, a)? next.c : next .a; 

max6 = (next.g > next.t)? next.g : next.t; 

max7 = (twoprev.c > twoprev.a)? twoprev.c : twoprev.a; 

max8 = (twoprev.g > twoprev.t)? twoprev.g : twoprev.t; 

max9 = (twonext.c > twonext.a)? twonext.c : twonext.a; 

maxlO = (twonext.g > twonext.t)? twonext.g : twonext.t; 

/* round two - compare winners of round 1 */ 
maxl ~ (maxl > max2)? maxl : max2; 
max2 = (max3 > max4)? max3 : max4; 
max3 = (max 5 > max6)? max5 : max6; 
max4 = (max7 > max8)? max7 : max8; 
twoprevmax = max4; 

maxS = (max9 > maxlO)? max9 : maxlO; 
twonextmax = max 5 ; 

/* round three - determine largest winner of round 2 */ 
maxl = (maxl > max2)? maxl : max2; 
max2 = (max3 > max4) ? max3 : max4; 
max3 = max5; 

/* round four - determine largest winner of round 3 */ 
maxl = (maxl > max2) ? maxl : max2; 
maxl = {maxl > max3)? maxl : max3 ; 
max = maxl; /* set max field */ 

/* maxl is now max. Normalize values */ 
if (maxl != 0) { 

threeprev.c = threeprev.c / maxl; 

threeprev.a = threeprev.a / maxl; 

threeprev.g = threeprev.g / maxl; 

threeprev.t - threeprev.t / maxl; 

twoprev.c = twoprev.c / maxl; 

twoprev.a = twoprev.a / maxl; 
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twoprev.g = twoprev.g / maxl; 
twoprev.t = twoprev.t / maxl; 
prev.c = prev.c / maxl; 
prev.a = prev.a / maxl; 
prev.g = prev.g / maxl; 
prev.t = prev.t / maxl; 
curr.c = curr.c / maxl; 
curr.a = curr.a / maxl; 
curr.g = curr.g / maxl; 
curr.t = curr.t / maxl; 
next.c = next.c / maxl; 
next. a = next. a / maxl; 
next.g = next.g / maxl; 
next.t = next.t / maxl; 
twonext.c = twonext.c / maxl; 
twonext.a = twonext.a / maxl; 
twonext.g = twonext.g / maxl; 
twonext.t = twonext.t / maxl; 
threenext.c = threenext.c / maxl; 
threenext.a = threenext.a / maxl; 
threenext.g = threenext.g / maxl; 
threenext.t = threenext.t / maxl; 

} 

} 

int iscalKint call) { 

/* determines whether a data line has been 
return* (call >= 0) && (call <= 4)); 

} 

int call toint (char call) { 

/* converts character tag to int */ 
switch (call) { 
case 'C : 

return 0; 
case 'A' : 

return 1; 
case 'G' : 

return 2; 
case 'T' : 

return 3; 
case 'X' : 
default : 

return -1; 

1 

) 
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char inttocall (int tag) { 
switch (tag) { 
case 0: 

return 'C; 
case 1: 

return 'A' ; 
case 2: 

return 'G' ; 
case 3 : 

return 'T* ; 
case -1: 
default: 

return 'X' ; 

} 



void cluster:: addvec (vector *vec) { 

/* adds the vector vec to the cluster clust */ 
if (vec->max != 0) { 
if (size >= 64) { 

fprintf (stderr, "Warning: Too many vectors in cluster %c %c\n" , 
inttocall (vec->lastcall) , inttocall (vec->tag) ) ; 

} 

else { 

data [size] = *vec; 
size++; 

} 

} 

} 

void cluster:: create„average ( ) { 

/* creates arithmetic average vector from vectors in data array */ 
int i; 

double tpcs = 0.0, tpas = 0.0, tpgs = 0,0, tpts = 0,0; 

double twpcs = 0.0, typas = 0.0, twpgs = 0.0, twpts = 0.0; 

double pes = 0.0, pas = 0.0, pgs = 0.0, pts = 0.0; 

double ccs = 0.0, cas = 0.0, cgs = 0.0, cts = 0.0; 

double ncs = 0.0, nas = 0.0, ngs = 0,0, nts = 0.0; 

double twncs = 0.0, tvmas = 0.0, twngs = 0.0, twnts = 0.0; 

double tncs = 0.0, tnas = 0.0, tngs = 0.0, tnts = 0.0; 

double ttcs = 0.0, levs = 0.0, ms = 0.0, pms = 0.0, nms = 0.0; 

vector *cp; 

/* sum up each vector component */ 

if (size 0) fprintf (stderr, "No data points in this cluster ! \n* ) ; 
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. ftrAn . inttocall(ciata[0] .lastcall) , 
// fprintf (stderr, "\nCluster %c%c:\n , inttoca 

/ / inttocall (data [ 0 ] . tag) ) ; 

for (i = 0; i < size; i++J ( 

cp = &data[i] ; ... 
// if (i>0) fprintf {stderr, -%d % cp->timetocall) ; 

tpcs += cp->threeprev.c; 
tpas += cp->threeprev.'a? 
tpgs += cp->thr.eeprev.g; 
tpts += cp->threeprev.t; 
twpcs += cp->twoprev.c; 
twpas += cp->twoprev.a; 
twpgs +- cp->twoprev.g; 
twpts += cp->twoprev.t; 
pes += cp->prev.c; 
pas += cp->prev.a; 
pgs += cp->prev.g; 
pts += cp->prev.t? 

ccs += cp->curr.c; 

cas += cp->curr.a; 

cgs += cp->curr.g; * 

cts += cp->curr.t; 

ncs += cp->next.c; 

nas += cp->next.a; 

ngs += cp->next.g; 

nts += cp->next.t; 

twncs += cp->twonext«c; 

twnas += cp->twonext.a; 
twngs += cp->twonext.g; 
twrits += cp->twonext.t; 
tncs += cp->threenext.c; 
tnas += cp->threenext.a,\ 
tngs += cp->threenext.g; 

tnts += cp->threenext.t; first data point, 

if (i>0) ( /* ignore tlmetocall and lastcallval for fxrst 
since may be bad */ 

ttcs += cp->timetocall ; 

levs += cp->lastcallval; 

} 

ms += cp->niax; 

pms += cp->twoprevmax; 

mas += cp->twonextmax; 

) 

/* take averages */ 



- 184 - 



WO 96/35810 



PCTAJS96/06579 



average 
average « 
average . 
average 
average 
average 
average 
average 
average 
average 
average 
average . 
average . 
average, 
average . 
average , 
average , 
average 
average 
average 
average 
average 
average . 
average, 
average . 
average . 
average , 
average . 
average . 
average 
average 
average 
average 



. threeprev.c = tpcs/size; 
. threeprev.a = tpas/size; 
.threeprev.g = tpgs/size; 
.threeprev.t = tpts/size; 
twoprev.c = twpcs/size; 
twoprev.a = twpas/size; 
twoprev.g = twpgs/size; 
twoprev-t = twpts/size; 
prev.c = pcs/size; 
prev.a = pas/size; 
prev.g - pgs/size; 
.prev.t = pts/size; 
.curr.c = ccs/size; 
.curr.a = cas/size; 
.curr.g = cgs/size; 
.curr.t = cts/size; 
.next.c = ncs/size; 
.next. a = nas/size; 
.next.g = ngs/size; 
.next.t = nts/size; 
twonext.c = twncs/size; 
twonext.a = twnas/size; 
twonext.g = twngs/size; 
twonext.t s twnts/size; 
threenext.c = tncs/size; 
.threenext.a = tnas/size; 
,threenext,g = tngs/size; 
.threenext.t = tnts/size; 
.timetocall = ttcs/ (size-1) ; 
.lastcallval = levs/ (size-1) ; 
.max = ms/size; 
.twoprevmax = pms/size; 
twonextmax = nms/size; 



, , afn1 i»«t-rall- /* same for whole cluster */ 
average. las tcall « data [0] .las tcaii, / Suiter */ 

/* same for whole cluster / 



average, tag = data 1 0] .curr . tag; 



// f P rintf(stderr, -(average % .2fK . average, timetocall) ; 



) 

double cluster:: distance (vector *vec) { 
double dist, vmax, amax, vlast, alast; 

if (vec->max <= 0) vmax = 1; 
else vmax = vec->max? 
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if (average. max <= 0) amax - 1; 

else amax = average. max; 

if (vec->lastcallval <= 0) vlast = 1; 

else vlast = vec->lastcallval; 

if (average. lastcallval <= 0) alast = 1; 

else alast = average. lastcallval; 



dist = ( 

* ( P ow((vec->threeprev.c - average. threeprev.c), 2) + 
pow( (vec->threeprev.a - average. threeprev. a) . 2) + 
pow ((vec-> threeprev. g - average. thr eepr ev.g) , 2) + 
pow((vec->threeprev.t - average. threeprev. t) , 2) + 
/ P ow((vec->twoprev.c - average. twopr ev. c) , 2) + 
pow((vec->twoprev.a - average. twoprev. a) . 2) + 
P ow( (vec->twoprev.g - average. twoprev. g) . 2) + 
pow((vec->twoprev.t - average, twoprev. t) . 2) + 
pow((vec->prev.c - average. prev. c) *1. 5, 2) + 
pow((vec->prev.a - average. prev. a) *1.5, 2) + 
pow( (vec->prev.g - average. prev.g) *1 . 5, 2) + 
pow((vec->prev.t - average. prev. t) *1 .5. 2) + 
pow((vec->curr.c - average. curr. c ) *2.0 # 2) + 
pow((vec->curr.a - average .curr .a) *2 . 0. 2) + 
pow((vec->curr.g - average. curr. g) *2.0. 2) + 
pow((vec->curr.t - average. curr. t) *2 . 0, 2) + 
pow((vec->next.c - average. next. c) *1. 5, 2) + 
pow((vec->next.a - average. next. a) *1.5. 2) + 
pow( (vec->next.g - average. next. g) * 1.5, 2) + 
pow((vec->next.t - average. next. t) *1.5, 2) + 

pow(vec-> P rev.c - average. prev.c ♦ veonext.c - 2 \ 
pow(vec->prev.a - average. prev. a + veonext.a - average. next. a, 2 * 
pow vec->prev. g - aver age. prev.g ♦ veonext.g - average. next. g, 2 ♦ 
y v . . , rar _^«Yt- t - average - next - 1 , A) t 

pow(vec->prev.t - average. prev. t + vec >next.t 

pow(vec->twoprev.c - average. twoprev. c + 

vec->twonext.c - average . twonext . c , 2) + 
pow (vec-> twoprev. a - average. twoprev. a + 

vec->twonext.a -. average. twonext. a, 2) + 
pow(vec->twoprev.g - average. twoprev. g + 

vec->twonext.g - average, twonext. g. 2) + 
pow(vec->twoprev.t - average. twoprev. t ♦ 

vec->twonext.t - average . twonext . t , 2) + 
*/ pow((vec->twonext.c - average. twonext. c) , 2) + 
pow( (vec->twonext.a - average. twonext. a) , 2) + 
pow((vec->twonext.g - average. twonext. g) , 2) + 
pow((vec->twonext.t - average. twonext. t) , 2) //+ 
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/* pow( (vec->threenext.c - average. threenext. c) , 2) + 
pow( (vec-> threenext. a - average. threenext. a) , 2) + 
pow( (vec->threenext.g - .average. threenext.g) , 2) + 
pow( (vec-> threenext. t - average, threenext . t) , 2) + 
pow(vec->threeprev.c - average. threeprev.c + 

vec->threenext.c - average . threenext . c , 2) + 
pow(vec->threeprev.a - average, threeprev. a + 

vec-> threenext. a - average, threenext .a, 2) + 
pow{vec->threeprev.g - average. threeprev. g + 

vec->threenext .g - average . threenext . g , 2) + 
pow{vec->threeprev. t - average. threeprev. t + 

vec-> threenext . t - average . threenext . t , 2) 

*/ ) * 

(pow(0.3* (vec->timetocall - average. time tocall) , 2) +1) // * 
// (pow(0.01* (vmax/vlast - amax/alast) , 2) + 1) 

// ((wax < amax)? <pow(0 . 5* (vmax - amax) , 2) + 1) : 1) 

// (pow((log(vec->twoprevmax) - log (average, twoprevmax) )*. 25, 2) 

/ / P ow( (log(vec->twonextmax) - log (average, twonextntax) J *.25, 2) ) 

); 



// if (vec->lastcall == average. las teal 1 ) dist - dist-1000; 
return (dist) ; 

} 

int vector: : call (cluster **clust) { 

/* determines tag of closest cluster */ 

double distfNUMCLUSTS] ; 
int i; 

for (i=0; i < NUMCLUSTS; i++) { 

distti] = clust[i]->distance(this) ; 
// clust[lastcallM + i] ->distance(this) ; 

} 

/* note: for coding purposes, use linear min. Should change 

to log time rain by pairing */ 
double min; 

/* go through array updating min as you go */ 
min = dist[0] ; 

for (i « 1; i < NUMCLUSTS; i++) t 
if (dist[i] < min) min = dist[i]; 
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} 

/* min is now minimum distance - determine cluster */ 
// if (min < 10000) { 

/* set currmin to this value */ 
currmin = min; 
// printf ("\n%15.0f " , min); 

for (i = 0; i < NUMCLUSTS; i++) { 
if (rain «= dist[i] ) { 
/* printf ("Current vector: \n"); 

this->print(} ; 

printf ("Closest cluster: \n"); 
clus t [ i ] ->average . print ( ) ; * / 
/* printf (" (%d) i); */ 

currcluster - i; 
return (clust [i] ->average . tag) ; 

) 

} 

//} 

/* default */ 
return (-1) ; 

}. 

int vector : : f indclust ( ) { 

/* returns index of cluster to which this vector belongs */ 
return { 4 *lastcall + curr.tag); 

} 

double avedist(int prev, int curr, cluster **clust) { 
/* find cluster and return average timetocall */ 
return (clust [4*prev + curr] ->average. timetocall) ; 

} 

int clusterprevtag(int cl) { 

/* return tag of previous base of cluster number cl */ 
return (cl/4); 

} 

int clustercurrtag(int cl) { 

/* return tag of current base of cluster number cl */ 
return (cl%4J ; 

) 

void averagetwovecs (vector *vecl, vector *vec2, vector *average) { 

averagetwodps(&vecl->threeprev, &vec2->threeprev r &average->threeprev) ; 
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averagetwodps (&vecl->twoprev, &vec2->twoprev, &average->twoprev) ; 
average twodps (&vecl->prev, &vec2->prev, &average->prev) ; 
averagetwodps <&vecl->curr, &vec2->curr, &average->curr) ; 
averagetwodps <&vecl->next, &vec2->next, &average->next) ; 
averagetwodps (&vecl->twonext, &vec2 ->twonext , &average->twonext) ; 
averagetwodps (&vecl->threenext , &vec2->threenext, &average->threenext) ; 
if (vecl->lastcall vec2->lastcall) average->lastcall = vecl->lastcall; 

else { 

vecl->lastcall = -1; 

fprintf (stderr, "Warning: averaging unmatched vectors . \n" ) ; 

} 

average->timetocall = (vecl->timetocall + vec2-> time toe all) /2 ; 
average->lastcallval = (vecl->lastcallval + vec2->lastcallval) /2; 
average->iaax = (vecl->max + vec2->max) /2; 

average->twoprevmax = (vecl->twoprevmax + vec2->twoprevmax) /2; 
average->twonextmax = (vecl->twonextmax + vec2->twonextmax) /2; 
if (vecl->tag == vec2->tag) average->tag = vecl->tag; 
else { 

average -> tag = -1; 

fprintf (stderr, "Warning: averaging unmatched vectors . \n" ) ; 

} 

} 



void averagetwodps (datapoint *dpl, datapoint Mp2, datapoint 'average) { 
average->c = (dpl->c + dp2->c)/2; 
average->t = (dpl->t + dp2->t)/2; 
average->a = {dpl->a + dp2->a)/2; 
average->g = (dpl->g + dp2->g)/2; 
if (dpl->tag == dp2->tag) average->tag = dpl->tag; 
else { 

average->tag = -1; 

fprintf (stderr, "Warning: averaging unmatched datapoints %c %c.\n M , 
inttocall(dpl->tag) , inttocall (dp2->tag) ) ; 

} 

} 
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extern "C" { 

#include <stdio.h> 
#include <stdlib.h> 

} • 

main(int argc, char **argv) ( 
FILE *datafile, * seqfile; 

if (argc < 2) { 

fprintf. (stderr, "Usage: %s <datafile> <sequence f ile>\n" , argv 
exit(l); 

} 



datafile = f open (argv [1] , *r"); 
seqfile = f open (argv[2] , "r"); 



double c, a, g, t; 

char call[2], realcall[2]; 

if* (Idatafile) { 

fprintf (stderr, "Can not open data file %s.\n", argvf 

exit(l); 

} 



if {» seqfile) { 

fprintf (stderr, "Can not open sequence file %s.\n", argv[2]); 
exit(l); 

} 

int line = 0, base = 0; 

while ((fscanf (datafile, -%lf %1£ %lf%lf%ls' , *c. *a, &g. &t, call)) != 5) 
line++; 

if <call[0] != 'X') C 
base++; 

if (fscanf (seqfile, ^ls*. realcall) != 1) { 

fprintf (stderr, "Sequence file ends too early! \n'); 

exit(l) ; 

} 

if (calltO] != realcall [0]) { 

fprintf (stderr. 'Sequence discrepancy at line %d, base %d\n", 

line, base); 

exit(l) ; 

} 

} 

) 
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printf (" Sequences match. \n" ) ; 

£ close (dataf ile) ; 
f close (seqfile) ; 

exit(0) ; 

} 
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extern "C M { 

#include <stdio,h> 
#include <stdlib.h> 

) 

main(int argc, char *argv[]) { 

FILE *pfile, *rfile, *yfile, *gfile, *infile; 

char prefix[32] , *inf ilenaine; 
int i=0; 

if (argc < 2) { _ - 

fprintf (stderr, "Usage: %s <dataf ile>\n" , argv[0]); 

exit(l); 

} 

inf ilenaine = argv{l] ; 

if (!(infile = fopen( infilename, "r"))) ( 

fprintf (stderr, "%s: can not open file %s\n", argv[0] , infilename); 

exit (1) ; 

} 

while ((infilenaraeU) { infilename [i] ! = '\0')> { 

prefix[i] = inf ilename [i] ; 
i++; 

} 

prefix [i] = ' . ' ; 
char * prefixend ; 
prefixend = &prefix[++i] ; 

sprintf (prefixend, "pur\O n ) ; 
printf ( "%s\n" , prefix) ; 
pfile = fopen(prefix, •W ) ; 
sprintf (prefixend , " red\ 0 " ) ; 
printf ( -%s\n" , prefix) ; 
rfile = fopen(prefix, "W); 
sprintf (prefixend, -ye'l\0- ) ; 
printf ( ■ %s\n" , prefix) ; 
yfile = fopen(prefix, "w"); 
sprintf (prefixend, "grnXO" ) ; 
printf ( ■ %s\n' , prefix) ; 
gfile = fopen(prefix, 'W); 

double p, r, y. S« 
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while (fscanf Unfile, -%lf %1£ %lf %lf\n", ftp. &r, &y, &g) == 4 
fprintf (pfile, *"%.0f\iT, p) ; 
fprintf (rfile, -%.0£\n", r) ; 
fprintf (yfile, "%.0f\n", y) ; 
fprintf (gfile, "%.Of\n", g) ; 

} 

f close (pfile) ; 
f close (rfile) ; 
f close (yfile) ; 
f close (gfile) ; 
fclose(inf ile) ; 

exit(O); 
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/* zips together files into standard output */ 

extern "C M { 

#include <stdio.h> 
#include <stdlib.h> 

) 

mainfint argc, char **argv) { 

FILE *pfile, *rfile # *yfile, *gfile; 

if {argc < 5) { 
f printf (stderr, 

■Usage: %s <purple file> <red file> <yellow file> <green f ile>\n" , 
argvtO] ) ; 

exit(l) ; 

} 

pfile = f open{argv[l] , "r"); 
rfile - fopen(argv[2] , "r"); 
yfile = fopen(argv[3] , "r"); 
gfile = fopen{argv[4] , "r") ; 

double p, r, y, g; 

while ( (fscanf (pfile, "%lf", &p) ~ 1) && 
(fscanf (rfile, "%lf, &r) == 1) 
(fscanf (yfile, "%lf", &y) 1) && 
(fscanf (gfile, -%lf, &g) == 1) ) { 
printf ("%10. Of %10.0f %10.0f %10.0f\n", p, r, y, g) ; 

} 

f close (pfile) 
f close (rfile) 
f close (yf ile) 
f close (gfile) 

exit (0) ; 

} 
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/* Background subtraction. Takes four minima: current - BIGWIN to 
current, current - SMALLWIN to current, current to current + 
SMALLWIN, and current to current + BIGWIN. Fits a line to these points 
using code from p. 527 of Numerical Recipes in C. Evaluates this line 
at the current point and subtracts that value. Writes to standard output. 
If argument, reads input from argument file, otherwise reads from standard 
input . 

*/ 

extern "C" { 

#include <stdio.h> 
#include <stdlib.h> 
# include <math.h> 

) 



tfinclude <linefit.h> 

^define SMALLWIN 50 
ttdefine BIGWIN 100 

class entry { 
public: 
double val; 
int time; 
entry *prewal; 
entry *nextval; 
entry *prevtime; 
entry *nexttime; 

entry (double v = 0, int t = 0) {val = v; time = t;}; 
void init {double v = 0, int t = 0) {val = v; time = t;}; 

}; 



class window { 

entry * lowval = NULL? 
entry *lowtime = NULL; 
entry *hightime = NULL; 
public : 
void insert (entry *) ; 
entry *clearlowtime{) ; 
void walkvals ( ) ; 
void walktime { ) ; 

double min() {return lowval ->val; } ; 
int mintimeO {return lowval->time; } ; 

); 



class channel { 
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public : 

window smallprevwin, bigprevwin, smallnextwin, bignextwin; 

double bigprevmin, smallprevmin, smallnextmin , bignextmin; 

int bigprevmintime, smallprevmintime, smallnextraintime, bignextmintime; 

int previndex, smallnextindex,- bignextindex; 

int prevtime, smalinexttime, bignexttime; 

double buf[2*BIGWIN - 1] ; 
int bufsize =0; 
void walkall times { ) ; 
void walkallvals ( ) ; 
void setallmins ( ) ; 
void printallmins ( ) ; 
void bufinit(FILE *); 
void timezero { ) ; 
void f irstphaseO ; 
void secondphase( ) ; 
void mainphase(FILE *) ; 
void endphase ( ) ; 
double fitcurrtimeO; 
void subtract ( ) ; 

}; 

void channel : : subtract ( ) { 
printf {«%.0£\n* , buf [previndex] - fitcurrtimeO); 
// printf ("%. Of \n", fitcurrtimeO); /* To get background */ 
) 

double channel : : f itcurrtiine ( ) { 
/ / walkalltimes ( ) ; 

setallmins { ) ; 
/ / printallmins ( ) ; 
/ / printf ( " Fitting line : - ) ; 

/* if all are equal, return that value */ 
if ( (bigprevmintime — bignextmintime) && 

(smallprevmintime — smallnextmintime) 

(bigprevmintime == smallprevmintime) ) 

{ 

// printf ("all points are equal\n*); 

// printf ("Subtraction value at %d is %.2f\n"< 

// prevtime, bigprevmin); 

return (bigprevmin) ; 

) 

/* otherwise fit to a line */ 
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doub lex[4] = {double (bigprevmintime) , double (smallprevmintime) ; 

double (smallnextmintime), double (bignextnuntxme) } ; 
double y [4] = {bigprevmin, smallprevmin, smallnextmin, bignextmin} ; 
double *xx = x-1; 
double *yy = y-l; 
double sig[4] ; 

double a, b, siga, sigb, chi2, q; 

fit (xx # yy, 4, sig, 0, &a, &b, &siga, &sigb, &chi2, &q) ; 

// printf ("y = %.2f + %.2f(x)\n", a, b) ; 
// printf ("Subtraction value at %d is %.2f\n", 
// prevtime, a + b* (double (prevtime) )) ; 

return (a + b* (double (prevtime) )) ; 

) 

void channel : : endphase ( ) { 
/* scroll off ends */ 
int i; 

entry *curr; 

for (i = 0; i < SMADLWIN; i++) { 

/* scroll all but bignextwin, drop low entry for bignextwin V 
curr = bigprevwin. clear low timed ; 
curr->init{buf [previndex] , prevtime); 
bigprevwin. insert (curr) ; 

curr « smallprevwin. clear lowtimeO ; 
curr->init (buf [previndex] , prevtime) ; 
smallprevwin. insert (curr) ; 

curr = sraallnextwin. clear lowtimeO ; 
curr->init (buf [ smallnextindex] , smallnexttime) ; 
smallnextwin . insert (curr) ; 

curr = bignextwin. clear lowt ime{) ; 
delete curr; 

subtract ( ) ; 



prevtime++; 
smallnexttiroe++ ; 

previndex = (previndex+1) %buf size; 
smallnextindex = (smallnext index* 1) %bufsize; 



) 
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for (i = SMALLWIN; i < BIGWIN - 1; i+*) t 

/* scroll previous windows, drop low entry for nextwindows V 
curr = bigprevwin.clearlowtime( ) ; 
curr->init (buf [previndex] , prevtime) ; 
bigprevwin. insert (curr) ,v 

curr = sraallprevwin.clearlowtimeO ; 
curr->init (buf [previndex] , prevtime) ; 
smallprevwin. insert (curr) ; 

curr = smallnextwin . clearlowtime ( ) ; 
delete curr; 

curr = bignextwin. clearlowtime () ; 
delete curr; 

subtract ( ) ; 

prevtime++; 

previndex = (previndex+1) %buf size; 

} 

} 

void channel :.:mainphase{ FILE *infile) { 
int i; 

entry *curr; 

/* all windows are full - continue moving current time forward^ 
while ((fscanf (infile, "%lf\ &buf [bignext index] ) == 1) ) ( 

/* scroll all windows */ 

curr = bigprevwin . clearlowtime ( ) ; 

curr->init (buf [previndex] , prevtime) ; 

bigprevwin. insert (curr) ; 

curr = smallprevwin. clear lowtimeO ; 
curr->init (buf [previndex] , prevtime) ; 
smallprevwin . insert (curr ) ; 

curr = smallnextwin. clear lowt ime( ) ; 
curr->init(buf [smallnext index] , smallnexttime) ; 
smallnextwin. insert (curr) ; 

curr = bignextwin. clearlowtime { ) ; 
curr->init(buf (bignext index] , bignexttime) ; 
bignextwin . insert ( curr) ; 
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subtract ( ) ; 

previndex = (previndex+1) %buf size; 

smallnext index = (smallnextindex+1) %buf size; 

bignextindex = (bignextindex+1) %buf size; 

prevtime++; 

smallnext time++ ; 

bignexttime++; 

} 

} 

void channel : : secondphase ( ) { 
int i; 

entry *curr; 

/* bigprevwin is still not full - continue moving current time forward */ 
for (i = BIGWIN +■ SMALLWIN - 1; i < 2*BIGWIN - 1; i++) { 

/* insert into bigprev window, scroll other windows */ 

curr = new entry (buf [previndex] , prevtime); 

bigprevwin . insert ( curr) ; 

curr = smallprevwin. clear lowtime{ ) ; 
curr ->init (buf [previndex] , prevtime) ; 
siual lprevwin . insert (curr) ; 

curr = smallnextwin.clearlowtimeO ; 
curr->init (buf [ smallnext index] , smallnexttime) ; 
smallnextwin. insert (curr) ; 

curr = bignextwin . clearlowtime ( ) ; 
curr->init (buf [bignextindex] , bignexttime) ; 
bignextwin . insert ( curr) ; 

subtract ( ) ; 

previndex = (previndex+1) %bufsize; 
smallnext index = (smallnextindex+l)%bufsize; 
bignextindex - (bignextindex+1) %buf size; 
prevtime++; 
smallnexttime-f + ; 
bignexttime++ ; 

) 

) 

void channel : : f irstphase ( ) { 

/* move current time forward - still have incomplete prev windows V 
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) int i; 

entry *curr; 

for (i = BIGWIN; i < BIGWIN + SMALLWIN - 1; i++) ( 

/* insert into previous windows, scroll next windows */ 
curr = new entry (buf [previndex] , prevtime); 
bigprevwin. insert ( cur r) ; 

curr = new entry (buf [previndex] , prevtime); 
smallprevwin. insert (curr) ; 

curr « sraallnex twin. cl ear lowtime( ) ; 
curr->init (buf [smallnext index] , smallnext time) ; 
smal lnextwin . ins er t ( curr ) ; 

curr - bignex twin.. clear low t ime( ) ; 
curr->init (buf [bignext index] , bignexttime) ; 
bignext win* insert (curr) ; 

subtract () ; 

previndex = (previndex*!) %buf size; 
smallnextindex = ( sma 1 lnext index* 1 ) %buf size; 
; bignextindex = ( bignext index+1) %buf size; 

prevtime++ ; 
smallnexttime++; 
bignext time++ ; 

} 

) 

void channel: :timezero() { 
entry *curr; 

/* initialize to current time 0 */ 
previndex - prevtime = 0? 
smallnextindex = smallnexttime = 0; 
bignextindex = bignexttime = 0; 

/* insert entry 0 into all windows */ 

curr = new entry (buf [previndex] , previndex); 

bigprevwin . insert ( curr) ; 

curr = new entry (buf [previndex] , previndex); 
smallprevwin. insert (curr) ; 

curr = new entry (buf [smallnext index J , smallnextindex); 
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smallnextwin. insert (curr) ; 

curr = new entry {buf [bignext index ] , bignextindex); 
bignextwin. insert (curr) ; 

previndex = (previndex+1) %buf size; 
smallnextindex = (smallnextindex+1) %buf size; 
bignextindex = (bignextindex+1) %buf size ; 
prevtime++ ; 
smallnexttime++; 
bignexttime++ ; 

int i; 

for (i = 1; i < SMALLWIN; i++) { 

/* insert into smallnextwin and bignextwin*/ 

curr = new entry (buf [smallnextindex] , smallnextindex) ; 

smallnextwin . insert { curr] ; 

curr = new entry (buf [bignextindex] , bignextindex); 
bignextwin, insert (curr) ; 

smallnextindex = (smallnextindex+1) %buf size; 
bignextindex = (bignextindex+1) %buf size ; 
smallnexttime++; 
bignexttime++; 

} 

for (i = SMALLWIN; i < BIGWIN; i++) { 
/* insert into bignextwin */ 

curr = new entry (buf [bignextindex] , bignextindex); 
bignextwin. insert (curr) ; 

bignextindex = (bignextindex+1 ) %buf size; 
bignexttime++ ; 

}. 

subtract ( ) ; 

} 

void channel : : buf init (FILE *infile) { 
/* read in buffer */ 
while ((bufsize < 2*BIGWIN - 1) && 

(fscanf (infile, "%lf - , &buf [buf size] ) » 1) ) 
buf size++; 

if (bufsize < 2*BIGWIN - 1) ( 
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fprintf (stderr, 'Input too short for window size %d\n" , BIG WIN) ; 
exit(l) ; 

} 

} 

void window: : insert (entry *e) { 
entry *p; 

/* insert in value list */ 
p = lowval; 

if (p == NULL) { /* list is empty - make first element */ 
e->prewal = NULL; 
e->nextval = NULL; 
lowval = e; 

} 

else { 

while ( (p->val < e->val) (p->nextval != NULL) ) p = p->nextval; 
if (e->val <= p->val) { /* insert before p */ 

e->prewal = p~>prewal; 

p->prewal = e; 

e->nextval = p; . 

if (e->prewal ! = NULL) e->prewal->nextval = e; 
if (e->val <= lowval->val) lowval = e; 

) 

else { /* reached end of list - insert at end */ 
e->prewal = p; 
p->nextval = e; 
e->nextval = NULL; 

} 

} 

/* insert in time list */ 

if (lowtime == NULL) ( /* list is empty - make first element */ 
e->prevtime = NULL; 
e->nexttime = NULL; 
lowtime = e; 
hightinie = e; 

} 

else { 

e->prevtime = high time; 

if (e->prevtime != NULL) e->prevtime->nexfctime = e; 
e->nexttime = NULL; 
hightime - e; 

} 

); 
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entry * window : :clearlowtime() { 

/* removes low time entry from the list, returns pointer 

to entry for reuse */ 
entry *temp; 

temp = lowtime; 

if (lowtime == NULL) return NULL; 
if (lowval == lowtime) lowval « lowval->nextval; 
if (hightime « lowtime) hightime = NULL; 
lowtime - lowtime->nexttime ; 

if (lowtime != NULL) lowtime->prevtime = NULL; 

if <temp->nextval I = NULL) temp->nextval->prewal = temp->prevval ; 
if (temp->prewal != NULL) temp->prewal->nextval = temp->nextval ; 

return (temp) ; 

}; 

void window: :walkvals () { 
entry *temp = lowval; 



while (temp != NULL) { - 
printf ("%. Of temp->val) ; 
temp = temp->nextval; 

} 

printf ("\n M ) ; 

}; 

void window: :walktime() { 
entry *temp = lowtime; 

while (temp != NULL) ( 

printf ("%. Of terop->val) ; 
temp = temp->nexttime; 

) 

printf C\n") ; 



void channel: :walkalltimes ( ) ( 
bigprevwin . walkt ime ( ) ; 
smallprevwin.walktimeO ; 
smallnextwin.walktimeO ; 
bignextwin.walktimeO ; 
printf C\n") ; 
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void channel: :walkallvals () { 
bigprevwin . walkvals ( ) ; 
smallprevwin. walkvals ( ) ; 
smallnex twin, walkvals ( ) ; 
bignextwin. walkvals ( ) ; 
printf ( " \n" ) ; 

} 

void channel ; : setallmins { ) { 
bigprevmin = bigprevwin.min{ ) ; 
smallprevmin = smallprevwin. min( ) ; 
smallnextmin = smallnextwin . min ( ) ; 
bignextmin = bignextwin. min( ) ; 
bigprevmintime = bigprevwin. mint ime() ; 
smallprevmintime = smallprevwin. min time ( ) ; 
smallnextmintime = smallnextwin. min t ime () ; 
bignextmintime = bignextwin. mint ime () ; 

} 

void channel : : print al Imins < ) { 

printf ("\nMins: <%d, %.0f) (%d. %.0£) (%d. %.0f) (%d. %.0f)\n", 

bigprevmintime, -bigprevmin, smallprevmintime, smallprevmin, 
smallnextmintime, smallnextmin, bignextmintime, bignextmin) ; 

} 

mainUnt argc, char *argv[] ) { 
FILE * infile ; 

// malloc_debug(8) ; 

/* read from standard input if no arguments, otherwise read from 

argument file */ 
if (argc < 2) infile = stdin; 
else if (! (infile = f open(argv[13 , "r"))) ( 

fprintf (stderr, "%s: cannot open file %s\n«, argvlO], argvtU > f 

exit(l); 

} 

entry *curr; 
channel c; 

c . buf init ( infile ) ; 
c . timezero ( ) ; 
c.firstphaseO ; 
c . secondphase { ) ; 
c.mainphase( infile) ; 
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c.endphaseO ; 
f close Unfile) ; 
exit(O) ; 
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What is claimed is; 

1. An integrated apparatus for concurrent preparation and 
analysis of a plurality of biopolyiaer fragment samples, each 

5 sample comprising a plurality of fragments obtained from one 
or more biopolymers, the apparatus comprising: 

(a) means for substantially concurrent electrophoretic 
separation of each of a plurality of biopolymer fragment 
samples .loaded into an electrophoretic separation medium; 
10 (*>) means for substantially simultaneously stimulating 

light emissions from fragments in a plurality of biopolymer 
fragment samples; and 

(c) means for substantially simultaneous resolution of 
said light emissions into spatial and spectral components and 
15 generation of output signals representative thereof, 

2. The apparatus of claim 1 further comprising means for 
the analysis of the detected light emission to give 
information on identity of the biopolymer samples. 

20 

3. The apparatus of claim 1 further comprising means for 
loading the plurality of biopolymer fragment samples into the 
electrophoretic separation medium • 

25 4. The apparatus of claim 3 wherein the means for loading 
the plurality of biopolymer fragment samples comprises: 

(a) a plurality of wells in the electrophoretic 
separation medium from which the biopolymer fragment samples 
migrate for separation, each well containing a buffer medium; 

30 (b) a solid phase loading comb having a plurality of 

teeth, each tooth being spaced and sized to fit into one of 
the plurality of wells, the teeth having means for the 
adhesion of the biopolymer fragment samples, the adhesion 
being such that the fragment samples are released upon 

35 insertion into the buffer medium in the wells* 
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5. The apparatus of claim 4 wherein the biopolymer fragment 
samples are DNA sequencing reaction fragment samples, the 
means for the adhesion of the samples are a plurality of 
sequencing templates bound to the teeth of the comb, the 

5 release upon insertion into the wells occurring with 
denaturation of the bound fragments from the templates. 

6. The apparatus of claim 4 in which the solid phase 

loading comb is guided into the sample wells by notches 

0 formed on a plate, the notches being sized to match the teeth 
of the comb. 



7. The apparatus of claim 3 wherein the means for loading 
the plurality of biopolymer fragment samples comprises: 

15 ( a ) a plurality of wells in the electrophoretic 

separation medium from which the biopolymer fragment samples 
migrate for separation, each well containing a buffer medium; 
and 

(b) a solid .phase loading system comprising a plurality 
20 of magnetic beads, such beads being placed into the plurality 
of wells, the beads having means for adhesion of the 
biopolymer fragment samples, the adhesion being such that the 
fragment samples are released upon insertion into the buffer 
medium in the wells. 

25 

8. The apparatus of claim 3 wherein the means for loading 
further comprises a sample focusing electrode and a means for 
controlling voltage applied to said electrode for the purpose 
of concentrating loaded samples. 

30 

9. The apparatus of claim 1 further comprising means for 
preparing from an input sample of a plurality of biopolymers 
a plurality of biopolymer fragment samples for subsequent 
analysis. 
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10. The apparatus of claim 1 wherein the means for 
substantially concurrent electrophoretic separation is a 
electrophoretic module comprising: 

(a) a substantially flat bottom plate; and 
5 (b) a substantially flat top plate, the top plate being 

positioned above the bottom plate for forming a narrow cavity 
to hold the electrophoretic separation medium, 

11. The apparatus of claim 10 wherein the top and bottom 

10 plates are separated by approximately 25 pm to approximately 
250 j«a. 

12. The apparatus of claim 10 further comprising thermal 
control means for maintaining a selected uniform temperature 

15 in the bottom plate, 

13. The apparatus of claim 12 wherein the thermal control 
means further comprises: 

(a) a heat sink for exchanging heat with the 
20 surroundings; and 

(b) a plurality of thermal transfer devices disposed 
between and in thermal contact with the heat sink and the 
bottom plate for bi-directional heat transfer. 

25 14. The apparatus of claim 13 wherein the thermal transfer 
devices are Peltier thermo-electric devices. 

15, The apparatus of claim 10 wherein electrophoretic 
migration lanes are formed between the top and bottom plates, 

30 

16. The apparatus of claim 1 wherein the means for 
substantially concurrent electrophoretic separation is an 
electrophoresis module comprising: 

(a) a substantially flat bottom plate; and 
35 (b) a substantially flat top plate having a plurality 

of grooves on one side, the top plate being positioned in 
contact with the bottom plate so that the grooves form with 
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the bottom plate a plurality of separated channels, the 
channels holding the electrophoretic medium to form 
electrophoretic migration lanes. 

5 17. The apparatus of claim 16 wherein the grooves in the top 
plate are from approximately 25 im to approximately 250 fm in 
cross-section. 

18. The apparatus of claim 16 wherein the grooves in the top 
10 plate are straight and spaced to be parallel. 

19. The apparatus of claim 16 wherein the grooves in the top 
plate are spaced to converge toward one end of the plate. 

15 20. The apparatus of claim 16 wherein the top plate is glass 
and the lanes are formed by etching. 

21. The apparatus of claim 20 wherein the top plate is 
borof loat glass and the lanes are formed by hydrogen fluoride 

20 etching. 

22. The apparatus of claim 16 wherein the grooved top plate 
is cast in a mold. 

25 23. The apparatus of claim 16 wherein the top plate is 
disposable. 

24. The apparatus of claim 16 in which the grooves are 
formed in polymer. 

30 

25. The apparatus of claim 16 further comprising: 

(a) cross -lane grooves between selected adjacent lanes 
forming cross-lane connecting channels, the channels holding 
separation medium so that biopolymer fragments can migrate 

35 between the selected adjacent lanes through the channels; and 

(b) electrodes formed in the walls of the selected 
lanes adjacent to the cross-lane connecting channels for 
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causing fragment migration through the connecting channels 
upon being energized with voltage. 

26. The apparatus of claim 16 in which either the top plate 
5 or the bottom plate is a thermal conductor coated with an 

electrical insulator, and the grooves are formed on the 
insulator. 

27. The apparatus of claim 1 in which the separation medium 
10 comprises small posts fabricated directly in the migration 

lanes . 

28. The apparatus of claim 1 in which the separation medium 
comprises small spheres of an inert material such as 

15 polystyrene. 

29. The apparatus of claim 1 wherein the means for 
substantially simultaneous resolution of each of a plurality 
of light emissions is a transmission imaging spectrograph 

20 comprising: 

(a) an optic assembly positioned to receive a 
substantial fraction of the plurality of light emissions for 
simultaneous spatial imaging along a first axis and spectral 
dispersion along a second axis; and 

25 (b) a detector array for simultaneous spatial and 

spectral detection of the plurality of light emissions imaged 
along the first axis and dispersed along the second axis by 
the optic assembly, the detector producing output signals 
representative of the detected light. 

30 

30. The apparatus of claim 29 wherein the detector array is 
a CCD array producing electronic output signals. 

31. The apparatus of claim 29 wherein the optic assembly 

35 further comprises binary optics for spectrally dispersing the 
light emissions along the first axis and for focusing the 
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light emissions along the second axis onto the detector 
array . 

32. The apparatus of claim 29 wherein the optic assembly 
5 further comprises: 

(a) a collection lens positioned to initially receive 
and collimate the plurality of light emissions; 

(b) a transmission dispersion element for spectrally 
dispersing the collimated signals along the first axis; and 

10 (c) a focusing lens for spatially focusing the signals 

along the second axis onto the detector array. 

33. The apparatus of claim 32 further comprising a spectral 
filter element positioned between the collection lens and 

15 transmission dispersion element for filtering from the light 
emissions extraneous light. 

34. The apparatus of claim 32 in which the transmission 
dispersion element is a transmission diffraction grating, or 

20 a transmission grating-prism. 

35. The apparatus of claim 1 wherein the biopolymer fragment 
samples are labeled with spectrally distinctive dyes and 
further comprising a laser illuminating the separated 

25 biopolymer fragment samples to stimulate light emission from 
the dye labels. 

36. The apparatus of claim 35 wherein the fragment samples 
are illuminated at multiple wavelengths. 

30 

37. The apparatus of claim 35 wherein the laser is a solid 
state laser. 

38. The apparatus of claim 3 wherein the means for loading 
35 the plurality of biopolymer fragment samples for separation 

comprises: 
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(a) an array of micro-reactors in which biopolymer 
fragment samples are generated from biopolymer samples, each 
micro-reactor having a minute inlet for loading a biopolymer 
sample; 

5 (b) a plurality of capillary inlet passages, each 

micro-reactor having an inlet passage, through which reagents 
needed for fragment generation are loaded; 

(c) a plurality of capillary outlet passages, each 
micro-reactor having an outlet passage, through which 

10 biopolymer fragment samples are ejected into the 
electrophoresis module for separation; and 

(d) a plurality of capillary controllers, one 
controller in each capillary inlet and outlet passage, for 
controlling fluid flow in the capillaries, 

15 

39. The apparatus of claim 38 wherein the capillary 
controller for controlling fluid flow in a capillary 
comprises : 

(a) an electrical micro-heating element in thermal 
20 contact with the capillary; and 

(b) electrical leads to the heating elements for 
energizing the heating elements, whereby current in the leads 
to a micro-heating element causes fluid evaporation in the 
contacted capillary and formation of a vapor bubble which 

25 blocks fluid flow in the capillary, 

40. The apparatus of claim 39 wherein the micro-heating 
elements comprise: 

(a) a layer of a resistive material deposited adjacent 
30 to the contacted capillary; and 

(b) a layer of protective material deposited over the 
layer of resistive material for separating the resistive 
layer from the capillary contents. 

35 41. The apparatus of claim 1 wherein the biopolymer samples 
are DNA samples, the biopolymer fragment samples are DNA 
sequencing reaction fragments labeled with dyes, each dye 
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having distinctive spectral properties, said apparatus 
further comprising: 

(a) memory means for storing the output signals of the 
means for resolution and detection and for storing a set of 

5 prototype signals; 

(b) means for cumulating the stored output signals into 
spectral samples, each such spectral sample representative of 
the distinctive spectral characteristics of the dye labels of 
one biopolymer fragment sample, 

10 (c) means for comparing the time behavior of the 

spectral samples with the time behaviors of the set of 
prototype signals and for selecting prototypes from the set 
that most closely match the spectral samples; and 

(d) means for outputting identities of the selected 

15 prototypes as the DNA sequences of the DNA samples. 

42. The apparatus of claim 41 wherein the set of prototype 
signals comprises the output from the analysis of well known 
DNA sequences. 

20 

43. The apparatus of claim 41 wherein the selected 
prototypes represent pairs or triples of sequential DNA 
bases . 

25 44. The apparatus of claim 41 wherein the means for 

selecting comprises comparing a distance metric between the 
time behaviors of the spectral samples and the time behaviors 
of the prototypes and selecting as representative that 
prototype with the closest distance. 

30 

45. The apparatus of claim 44 wherein the distance metric is 
output as an indication of the probable accuracy of the DNA 
sequences • 

35 46. The apparatus of claim 44 wherein the distance metric is 
the sum of the squares of the differences in signal values 
between the spectral samples and the prototype signals. 
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47. The apparatus of claim 41 further comprising laeans for 
outputting identities of multiple samples and relationships 
between said sample identities • 

5 48. The apparatus of claim 41 further comprising; 

(a) means for trimming from the output DNA sequences of 
the DNA samples stored in memory known DNA sequences in the 
DNA sample; 

(b) means for proofreading in a Monte Carlo manner the 
10 trimmed DNA sequences stored in memory, the means for 

proofreading comprising means for repetitively making at a 
random point in the trimmed output a random sequence 
alteration and evaluating sequence improvement until no 
further substantial sequence improvement occurs; and 
15 (c) means for storing and outputting the improved 

sequences . 

49. The apparatus of claim 48 wherein sequence improvement 
is evaluated by evaluating a probabilistic Boltzman condition 
20 on the difference in two distance metrics, one distance 
metric being between the original DNA sequence and the 
spectral samples, the other distance metric being between 
alternative DNA sequences and the spectral samples. 

25 50. The apparatus of claim 1 wherein the biopolymer samples 
are DNA samples, the biopolymer fragment samples are DNA 
sequencing reaction fragments labeled with dyes, each dye 
having distinctive spectral properties, said apparatus 
further comprising: 

30 (a) memory means for storing the output signals of the 

means for resolution and detection and for storing a set of 
prototype signals; 

(b) means for cumulating the stored output signals into 
a time series of spectral samples, each such spectral sample 

35 representative of the distinctive spectral characteristics of 
the dye labels of one biopolymer fragment sample; 
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(c) means for comparing at a plurality of successive 
observation times the time behavior of the time series of 
spectral samples with the time behaviors of the set of 
prototype signals and for selecting a prototype from the set 

5 that most closely matches the spectral samples; and 

(d) means for outputting the identity of the prototype 
that is the closest match. 

51. A method for generating DNA sequence reaction fragments 
10 in one reaction chamber without an intermediate separation 

step the method comprising the sequential steps of: 

(a) performing the polymerase chain reaction 
amplification step with dUTP rich PCR primers; 

(b) fragmenting the dUTP primers with Uracil DNA 
15 Glycosylase into fragments ineffective as DNA polymerase 

primers; and 

(c) performing the Sanger sequencing reactions. 

52. The method of claim 51 wherein the dUTP rich PCR primers 
2 0 have dUTP residues spaced no more than approximately six 

bases apart. 

53. The method of claim 51 performed in an array of micro- 
reactors for ejection onto a biopolymer separation apparatus. 

25 

54. A method for determining the DNA sequences of a 
plurality of DNA samples, the method using spectral signals 
obtained by spectrographic observation of electrophoretically 
separated labeled DNA fragments, the fragments being produced 

30 by the Sanger sequencing reactions and being labeled with 
dyes having distinctive spectral properties, the method 
comprising the sequential steps of: 

(a) cumulating the spectrographic signals into a 
plurality of spatial samples, each spatial sample being 

35 representative of fragments of one DNA sample, and for each 
spatial sample, cumulating the spectrographic output signals 
into spectral samples, each spectral sample being 
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representative of the distinctive spectral characteristics of 
one of the dye labels; 

(b) comparing the time behavior of the spectral samples 
with a set of prototype signal time behaviors and selecting 

5 prototypes from the set that most closely match the spectral 
samples ; and 

(c) outputting the identities of the selected 
prototypes . 

10 55. The method of claim 54 wherein the time behaviors of the 
set of prototype signals comprises the grouped output from 
the analysis of well known DNA sequences, 

56. The method of claim 55 wherein the selected prototypes 
15 are pairs of sequential DNA fragments. 

57. The method of claim 54 wherein the step of selecting 
comprises comparing a distance metric between the time 
behaviors of the spectral samples and the time behaviors of 

20 the prototypes and selecting as representative that prototype 
with the closest distance. 

58* The method of claim 57 wherein the distance metric is 
the sum of the squares of the differences in signal yalues 
25 between the spectral samples and the prototypes. 

59. The method of claim 57 wherein the distance metric is 
the product of (x) , the sum of the squares of the differences 
in signal values between the spectral samples and the 
30 prototypes, and (y) a metric distance representing the 

difference between the prototypically expected time between 
observation times of closest match, and the actual time 
between observation times of closest match. 

35 60. The method of claim 59 in which the metric distance (y) 
is a function of the square of the difference between the 
prototypically expected time between observation times of 
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closest match and the actual time between observation times 
of closest match. 

61. The apparatus of claim 57 wherein the distance metric is 
5 output as an indication of the probable accuracy of the DNA 

sequences . 

62. The method of claim 54 further comprising the steps of: 

(a) trimming from the output identities of the DNA 
10 samples known DNA sequences in the DNA sample; and 

(b) proofreading in a Monte Carlo manner the trimmed 
DNA sequences stored in memory, the step of proofreading 
comprising repetitively making at a random point in the 
trimmed output a random sequence alteration and evaluating 

15 sequence improvement until no further substantial sequence 
improvement occurs; and 

(c) storing and outputting the improved sequence. 

63. The method of claim 62 wherein evaluating sequence 

20 improvement is done by evaluating a probabilistic Boltzman 
condition on the difference in two distance metrics, one 
distance metric being between the original DNA sequence and 
the spectral samples, the other distance metric being between 
alternative DNA sequences and the spectral samples. 

25 

64. A method for determining the DNA sequences of a 
plurality of DNA samples, the method using spectral signals 
obtained by spectrographic observation of electrophoretically 
separated labeled DNA fragments, the fragments being produced 

30 by the Sanger sequencing reactions and being labeled with 
dyes having distinctive spectral properties, the method 
comprising the sequential steps of: 

(a) , storing the output signals of the means for 
resolution and detection and for storing a set of prototype 

35 signals; 

(b) cumulating the stored output signals into a time 
series of spectral samples, each such spectral sample 
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representative of the distinctive spectral characteristics of 
the dye labels of one biopolymer fragment sample; 

(c) comparing at a plurality of successive observation 
times the time behavior of the time series of spectral 

5 samples with the time behaviors of the set of prototype 
signals and selecting a prototype from the set that most 
closely matches the spectral samples; and 

(d) outputting the identity of the prototype that is 
the closest match. 

10 

65. An apparatus for the concurrent analysis of a plurality 
of DNA sequencing reaction fragment samples, each sample 
comprising a plurality of labeled DNA sequencing reaction 
fragments generated from one DNA sample, the labels being 
15 dyes with distinctive spectral characteristics, the apparatus 
comprising: 

(a) means for loading on the apparatus the plurality of 
DNA fragment samples for separation; 

(b) an electrophoresis module for the substantially 
20 concurrent separation of each of the plurality of DNA 

fragment samples, the electrophoresis module further 

comprising: 

i. a substantially flat bottom plate; and 

ii. a substantially flat top plate having* a 
25 plurality of grooves on one side, the top plate being 

positioned in contact with the bottom plate so that the 
grooves form with the bottom plate a plurality of separated 
channels, the channels holding the electrophoretic medium to 
form electrophoretic migration lanes. 
30 (c) a heat control subunit for maintaining a controlled 

uniform temperature in the electrophoresis module, the 
subunit further comprising: 

i. a heat sink for exchanging heat with the 

surroundings ; 

35 ii. a plurality of thermal transfer devices 

disposed between and in thermal contact with the heat sink 
and the bottom plate for bi-directional heat transfer; 
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(d) a laser illuminating the separated biopolymer 
fragment samples to stimulate emission of the dye labels and 
thereby to generate the plurality of light signals; 

(e) a transmission imaging spectrograph for 

5 substantially simultaneous detection of each of the plurality 
of light signals, the spectrograph- further comprising: 

i. an optic assembly positioned to receive a 
substantial fraction of the plurality of light signals for 
simultaneous spatial imaging along a first axis and spectral 

10 dispersion along a second axis; and 

ii. a detector array for simultaneous spatial and 
spectral detection of the plurality of light signals imaged 
along the first axis and dispersed along the second axis by 
the optic assembly, the detector producing output signals 

15 representative of the detected light; 

(f) means for the analysis of the detection output 
signals to determine the sequences of the DNA samples from 
the detector comprising: 

i. memory means for storing output signal data, 
20 processed signal data, and prototype signal data; 

ii. ' means for cumulating the detection output 
signals into spatial samples representative of one migration 
lane, and for each spatial sample, for cumulating the 
detection output signals into spectral samples representative 

25 of the distinctive spectral characteristics of the dye 
labels ; 

iii. means for comparing the time behavior of the 
spectral samples with a set of prototype time behaviors also 
stored in memory and for selecting prototypes that most 

30 closely match the spectral samples; and 

iv. means for outputting identities of. the 
selected prototypes as the DNA sequences of the DNA samples. 

66. The apparatus of claim 65 wherein the apparatus further 
35 comprises: 

(a) means for trimming from the output identities of 
the DNA samples known DNA sequences in the DNA sample; 
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(b) means for proofreading in a Monte Carlo manner the 
trimmed DNA sequences, the means for proofreading comprising 
repetitively making at a random point in the trimmed output a 
random sequence alteration and evaluating sequence 

5 improvement until no further substantial sequence improvement 
occurs ; and 

(c) means for outputting the improved sequence as the 
DNA sequences of the DNA samples. 
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